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Harris RTX ZOOO*" 16.Mt Forth Chip 

•8 or 10 MHz operation and 15 MIPS spei 

• 1-cycle 16 X 16 = 32-bit mi 
•1-cycle 14-prioritized interrupts. 

• two 256-word stack memories. 
•8-channei I/O bus & 3 timer/counters. 

SC/FOX PCS (Parallel Coprocessor System) 
•RTX 2000 industrial PGA CPU; 8 & 10 MHz. 
•System speed options: 8 or 10 MHz, 
•32 KB to 1 MB 0-wait-state static RAM. 
•FuU4ength PC/XT/AT plug-in (6-layer) boar< 

SC/FOX VME SBC (Single Board Computer) 

•RTX 2000 industrial PGA CPU; 8, 10, 12 MH 
•Bus Master, System ControUer, or Bus Slave. 
•Up to 640 KB 0-wait-state static RAM. 
•233mm x 160mm 6U size (S-laver) board. 



SC32"" 32-bit Forth Microprocessor 

8 or 10 MHz operation and 15 MIPS speed. 
1-clock cycle instruction execution. 
Contiguous 16 GB data and 2 GB code space. 
Stack depths limited only by available memory. 
Bus request/bus grant lines with on-chip tristate 

SC/FOX SBC32 (Sii ngle Board Computer32) 

•32-bit SC32 industrial grade Forth PGA CPU. 
• System speed options: 8 or 10 MHz. 
•32 KB to 512 KB 0-wait-state static RAM. 
•100mm by 160mm Eurocard size (4-layer) board. 



t OX CUB (Single Board Computer) 

RTX 2000 PLCC or 2001A PLCC chip. 
System speed options: 8, 10, or 12 MHz. 
32 KB to 256 KB O-wait-state SRAM. 
100mm by 100mm size (4-layer) board. 

For additional product information and 



aC/rUA (Parallel Coprocessor Sys 

•32-bit SC32 industrial grade Forth PGA C 
•System speed options: 8 or 10 MHz. 
•64 KB to 1 MB 0-wait-state static RAM. 
•Full-length PC/XT/AT plug-in (6-layer) b 

SC/FOX SBC (Single Board Computer) 
•RTX 2000 industrial grade PGA CPU. 
•System speed options: 8, 10, or 12 MHz. 
•32 KB to 512 KB 0-wait-state static RAM 
• 100mm by 160mm Eurocard size (4- layer) 
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FROM CLEPSYDRAS TO NEURAL NETS ■ ROBERT GARIAN 
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A water closet is a simple, on-off feedback control system much like that of neurons. This code models the system 
underlying a flushing toilet, implementing the logic with embedded computations as a set of production rules, a natural 
® style for building complex causal models. 

SOVIET FORTH INFO - DAVID KIPPING 
11 

The author visited the Soviet Union as part of a multi-disciplinary delegation. One study site was Forth-Info, a co- 
op specializing in Forth. Like much in the U.S.S.R., nothing about this "private" company is simple, like i^oflting 
in a country with no copyrights! 
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In Forth, it can be easier to invent something that exactly suits one's needs than to conform to a standard method. But 
beginners often ask, "Why doesn't Forth have arrays?" Learn the common methods of defining arrays, and then some! 

FORST: A 68000 NATIVE-CODE FORTH - JOHN REDMOND 

16 

The "late binding" of deferred words lends flexibility to compiled code, but involves run-time decisions. Where these 
can take place at compile time, try FotST's configurable, new "vectored word." This is the last of a five-part series. 

FORML XII: FORTH IN INDUSTRY ■ NEIL BAWD 
20 

Regular as the tides but far less p-edictable, FORML-goers gathered again in Pacific Grove, California last fall. Many 
of the typically belief-challenging, concept-stretching, water-testing, and otherwise mind-bending technical discus- 
sions were also marked by an upbeat mood about Forth 's performance in today's marketplace. 

PENCIL-AND-PAPER ARITHMETIC - J J. MARTENS 

22 

F83 users get an amusing glimpse at a floating-point experiment that really isn't. It exploits an innocent little word 
DPL and returns a surprising and interesting result — but it's not the real McCoy! 

INTERNATIONAL GENIE ACCESS - DENNIS RUFFER 

26 

GE Information Services is reaching into more countries, and so is its Forth RoundTable. Access information, sign- 
up fees, and connect charges are given here, as well as new cost-saving features that affect all users of the network. 

FORTH DAY 1990 - C.H. TING 
30 

Two enthusiastic chapters of the Forth Interest Group teamed up to host a local day-long Forth conference. The best 
and the brightest held forth to stimulate their audience and to share the latest. Here is a recap of the event. 

METACOMPILATION MADE EASY - FRANK SERGEANT 

31 

That is, easier to understand and easier to implement. Most languages separate the compiler from its results. Forth is 
different, its compilers extend the current Forth system rather than creating an independent system. This author builds 
(§) ontheworkof cmFORTH. 
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EDITORIAL 



An important notice to each of you — 
Beginning with the next issue, your 
membership in the Forth Interest Group 
will be handled differently. If you re- 
newed your membership late in previous 
years, the FIG office would send any 
issues you might have missed and your 
membership would still expire at the end 
of April. The Board of Directors has 
elected to change that procedure; your 
membership will now start with the next 
issue to be printed after your dues are 
received, and will expire a year later. So 
be sure to renew on time — the only other 
way to get our next issue will be to pay the 
new cover price of $10. 

Along with the cover price, the cost of 
membership has increased for the first 
time in five years. The Board of Directors 
deemed it necessary in order to keep up 
the standards of quality and service that 
the Forth community needs so much. You 
should have received your renewal notice 
in the mail by now, offering (only to 
current members) a limited-time renewal 
at last year's lower rates. But that offer 
must expire before April 1, so be sure to 
take advantage of it right away. (Or use 
the mail-order form in the centerfold.) 

We earnestly hope you will renew 
now, and that you will help us to guide and 
shape the Forth Interest Group this year. 
And you won't want to miss the exciting, 
upcoming issues of Forth Dimensions, 
either! 

* :tt * 

A new Board of Directors of FIG was 
installed at die 1990 FORML conference. 
The new President — and a familiar name 
to many FIG members — ^is John D. Hall. 
We wish him all the best in his position of 
responsibility. We know he is counting on 
active participation and lots of input from 
the membership, but you can read all 
about that in John's letter elsewhere in 
this issue. 

Robert Reiling, retiring as long-time 
President and head of the FIG Business 
Group, will continue directing the 
FORML conference. His steadying hand 
has guided FIG through some rocky wa- 
ters over the years, and we are glad his 
able direction will still be part of the 
scene. The entire corps of FIG volunteers 
and other contributors expresses its col- 



lective thanks for Bob's innumerable con- 
tributions. 

By the way, Mike Perry has agreed to 
serve again next year as FORML' s pro- 
gram chairman. This year's event was a hot 
ticket, and is rec^ped in condensed form in 
this issue by the inimitable Neil Bawd. 
* * * 

CaU for Authors! 

We are looking for more Forth authors 
to share their discoveries, expertise, and 
opinions with the rest of us. Many of our 
long-time contributors are finding increas- 
ing ORwrtunities to get published in gen- 
eral computing magazines — a welcome 
reminder that the public is interested in 
Forth — but we still need to keep Forth Di- 
mensions' coffers full of interesting and 
challenging articles, too. So write to tell us 
about your latest experiment, how to im- 
press our C-going friends, or about an 
improvement to a previous article's ap- 
proach (who has a better interrupt handler 
or DMA scheme, anyway?). Your wwk 
will be in good company, too — ^we are 
anticipating new contributions fi'om some 
of our favorite Forth authors of recent 
years. 

In addition to purely technical writing, 
we are looking for someone to collect and/ 
or edit Forth-related news items for FD. 
Are you plugged into the working Forth 
world? Do you know who got hired or 
promoted, what new product has just been 
released, which company landed a juicy 
contract, and how many programmers it 
really took to screw in that light bulb? We 
are looking for news sources, too, so even if 
you don't want to author a column, send 
your latest scoop to the FIG office or to 
MARLIN.O on GE Mail. And include your 
own legible name, address, and telephone 
number — on the record or off, we have to 
confirm items to be {Minted. 

Finally, let me restate that FD is a 
reader-created publication without inten- 
tional technical biases or covert agendas. 
We are entirely shaped — every issue — by 
the letters, articles, and programming 
styles of our readers. I encourage you to 
join us in the process of making the next 
year of FD the most relevant, important, 
and valuable one yet. 

— Marlin Ouverson 
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Letter from the president 



"...Beyond His Call to Duty" 

The Forth Interest Group — ^being a volunteer organization means that people give 
of their time and energy to support the organization. It is often expected and too often 
unrewarded. Yet there are some who give beyond what is expected, some who seem 
to not be satisfied with the normal, some who seek out the lost and provide help, some 
who provide for providing's sake without thought of reward. 

Each year since 1979, one person from the Forth community is selected to be 
recognized from the many who are in the category of having "Contributed Beyond 
their Call to Duty" toward the support of the Forth Interest Group. The group of other 
so-recognized people, known as The FIGGY's, chooses to honor, and therefore drafts 
into its ranks, the one who in their opinion conspicuously stands out in this category. 

The FIG RoundTable on GEnie has grown over the last five years and has 
provided another communication channel besides Forth Dimensions between FIG 
members and others in the Forth community. The difficult and demanding part of 
providing this form of communication is the job of being a Sysop. The energy and 
spirit of the Sysop is reflected directly in the energy and spirit of the network. The job 
on GEnie is so demanding that several Sysops are required, and the Sysops of GEnie 
hold one of their own in great esteem. 

So, for his tireless efforts as Sysop of the FIG RoundTable on GEnie, and for his 
patience for the last four years as producer and host of the Thursday nights "Figgy 
Bars" on GEnie, The FIGGY's have selected and would like to present to you: 

1990 FIGGY of the Year 
Gary Smith 



Aellow FIG members, I would like to 
take this opportunity to thank the members 
of the Board of Directors for their vote of 
confidence in electing me as your presi- 
dent. I will try my best to live up to the trust 
which has been placed in me. I am deter- 
mined to work diligently to provide the 
leadership necessary for FIG to continue to 
improve its services to you its membership, 
to improve the image of the Forth commu- 
nity, and to expand the awareness of Forth. 

I would also like to again thank Robert 
Reiling for the fine job he has done, and for 
the many hours of volunteer time he has 
donated over the past six years serving as 
president. His work as president inspired 
many of the improvements we are now 
beginning to see emerge in the organiza- 
tion. Asaresultof these efforts, my job will 
be a little easier, yet I will have to work very 
hard to fill the shoes he is leaving behind. 
Thanks again. Bob. 

As for myself, I intend to use the 
President's Letter as a means to communi- 
cate to you what is going on at the interna- 
tional FIG Board and at the FIG business 
meetings. Many decisions are made each 
month which affect all of you as FIG 
members and indirectly affect you as Forth 
users. It is important that you are made 
aware of the issues and take an active role 
in the decision-making process. You can 
have an impact on these decisions, prefera- 
bly by volunteering to serve on or chair a 
committee dealing with the issues you are 
most concerned with, or at a minimum by 
providing feedback to me and the other 
officers or board members on these issues 
so that decisions can be made with a first- 
hand knowledge of what the membership 
wants out of this organization. This is your 
organization, ensure that it serves you by 
getting involved; I guarantee you will get 



much more back than you put in. 

To start, a new Board of Directors has 
been formed and has begun its job of 
reshaping the image of FIG. The board's 
job is to set the "tone," or as I call it the 
"image," of the Forth Interest Group; but 
being the Board of Directors of FIG, they 
have the absolute final word on its functions 
and are the highest authority in FIG if you 
need to appeal to them for action. Call them 
and pass on to them your ideas. Of the 
seven, you will certainly find one or several 



who will be sympathetic and help cham- 
pion your ideas. 

The Board of Directors is more diverse 
geographically than it has ever been. Of the 
seven members, three are from northern 
California-Silicon Valley; two are from 
southern California; one from British Co- 
lumbia, Canada; and one from Boston, 
Massachusetts. Dr. C.H. Ting and David 
Petty are new Board members; Wil Baden, 
Dennis Ruffer, and John Hall have served 

(Continued on page 38.) 
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FROM CLEPSYDRAS TO 

NEURAL NETS 



ROBERT GARIAN - ARUNGTON. VIRGINIA 



Tie 



le ancient American Indians and Afri- 
cans are known to have used water in crude 
clocks. They would place a small, leaky 
canoe or similar object in a bowl of water so 
that its sinking marked a certain period of 
time, just like an hourglass. The clepsydra 
(invented around 250 B.C.) was a bowl or 
pot, filled with water, that had a column of 
marks along the inside, so that the water 
level would act as an indicator of approxi- 
mate time. The first jewelled timepiece is 
thought to have been a clepsydra whose 
orifice was a precious stone with a hole 
drilled in it 



It is easy to build 
a logic circuit out of 
flush toilets. 



The flush toilet may be a descendant of 
the clepsydra. The modem toilet is little 
changed from the ancient Roman ones 
which had floats and stoppers. 

A water closet or toilet system is actu- 
ally a simple control system (classified as 
an on-off feedback control system). The 
parts of a control system are: a sensor (a 
measuring device), a controller, and a plant 
(the object that you want to control). The 
idea is that the measuring device provides 
the controller with the current value of 
some plant variable so that it can generate a 
corrective value to the plant 

The chain of events that takes place in a 
toilet system are automatic: once started, 
the system cycles and resets itself. In con- 
trol terms, the float is the sensor or measur- 
ing device: its vertical position tells the 
valve (the controller) when to turn on and 
when to shut off The lever, linkage, and 



\ Froi clepsydras to neural nets. 10/22/90 


\ Written in HS/Forth 3.4, uses coprocessor tt C6A 


\ R. Barian. Forth Diiensions 


\ Requires the BRftPHICS and FLQATVAR extensions 


DECIHAL FINIT FLOATS 


( DIMENSIONS ARE IN 


INCHES AND SECONDS : ) 


{ Length of tank ) 


I 19.0 R80VAR LEN6TH 


{ Kidth 0^ tank ) 


I 7.0 R80VAR WIDTH 


( Max level ) 


7. 10.0 R80VAR H2 


( Rest level ) 


X 9.0 R80VAR HI 


( Min level ) 


X 2.0 R80VAR HO 


( Full voluie ) 


X 0.0 R80VAR FULL 


( Flapper radius ) 


X 1.0 RaOVAR R 


\ or d V ■ dLLci ■ J 




( Current level ) 


X 0,0 R80VAR H 


( Area of opening ) 


I 0.0 R80VAR AREA 


( Elapsed tise ) 


X 0.0 RBOVAR TIME 


{ Tile step ) 


X 0.0 RBOVAR DT 


( Current outflow ) 


X 0.0 R80VAR CUTFLOU 


( Current inflon ) 


*/. 0.0 RBOVAR INFLQM 


( Flapper leak 1 


X 0.0 RBOVAR FLAPLEAK 


{ Valve leak ) 


y. 0.0 RBOVAR VALVLEAK 


( Current volu«e ) 


X 0.0 RBOVAR VOLUME 


( Tine factor ) 


X 0.0 RBOVAR ALPHA 


( Height factor ) 


X 0.0 RBOVAR BETA 


( Finishing ti«e ) 


X 0.0 RBOVAR FINISH 


( States ) 


-1 VAR ON 


( " ) 


VAR OFF 


( " ) 


-1 VAR UP 


! " ) 


VAR DOHN 


( " ) 


-1 VAR RIBINB 


( " ) 


VAR FALLINB 


( Objects ) 


VAR FLOAT 


( " ) 


VAR FLAPPER 


( " ) 


VAR VALVE 
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flapper are used to initiate the operational 
cycle of the toilet system. The cycle is over 
and the system reset when the valve has 
shut off. At some point during the filling 
part of the cycle, it will become possible to 
force an early cycle. 

In addition to the primary control sys- 
tem, there is another: the overflow pipe 
serves as both sensor and controller. The 
reference level is the height of the overflow 
pipe, and the correction is made by simply 
allowing the water above the opening of the 
pipe to be drained. 

There is a strong resemblance between 
a flushing toilet system and a neuron. I 
believe that J.Y. Lettvin was the first to 
notice this analogy. The neuron consists of 
a cell body and an axon (a tube leading 
away from the body). Inside the neural 
membrane, there are positive potassium 
ions and negative proteins; outside, there 
are positive sodium and negative chloride 
ions that create a resting membrane poten- 
tial of about -70m V. A mechanical, electri- 
cal, or chemical stimulus can cause depo- 
larization of the membrane, allowing the 
temporary cross-flow of sodium and potas- 
sium ions. The result is a rapid rise from the 
negative resting-membrane potential to the 
positive action potential. This localized 
change in the membrane potential propa- 
gates as the adjacent inactive region's 
threshold is broken down by the resulting 
current flow. 

Although we shouldn ' t take the analogy 
too far, a flush is analogous to a depolariza- 
tion, and the period after a flush during 
which it is not possible to initiate a new 
flush is similar to the refractory period of 
the neuron during which it must rest and 
restore the ion balance. The propagation of 
the action potential is similar to the dis- 
charge from the tank system, and the 
threshold for the action potential is similar 
to the minimum amount of force required to 
activate the lever-linkage system that lifts 
the flapper in the hopper. 

It is easy, although impractical, to build 
a logic circuit out of a set of flush toilets. 
We can attach leaky tin cans to the lever or 
pull-chain system of the toilets, and run 
pipes from the flapper openings to the cans. 
Whenever a can fills sufficiently with the 
discharge from other flushes, another flush 
is triggered. The logic, which is threshold 
logic, is the same whether operative in 
neural nets, flush nets, or gates in electronic 
circuits. 



Time = 1 00.00000 Volume = 1 21 6.3721 
Flapper is down Valve is off 
Time step = 1 .0000000 



H2 
HI 

HO 



Flapper leak = 0.0000000 
Valve leak = 0.0000000 



Time = 200.00000 Volume = 1 330.2721 
Flapper is down Valve is off 
Time step = 1 .0000000 



H2 
H1 

HO 



X.... 



Flapper leak = .50000000 
Valve leak = 2.0000000 



Time = 1 99.50000 Volume = 1 227.9801 
Flapper is down Valve is off 
Time step = 1 .5000000 



H2 
HI 

HO 



Flapper leak = 1 .2000000 
Valve leak = .50000000 
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Threshold logic is based on a test for 
inequality. The rule is: Given a number 
called the threshold, T, if the input from the 
previous stage adds up to a number greater 
than T, then send out an output value. By 
varying T, it is possible to construct a logic 
gate. For example, if the inputs are meas- 
ured in units that can be normalized to and 
1 , and if T is 1 , then any unit input will cause 
a unit output If T is 2, then two or more 
inputs will have to deliver unit inputs to 
cause a unit output If there are k inputs and 
T<k, then an output will follow any input of 
T or more units. This last case is sometimes 
called majcffity logic if T=k/2 when k is 
even or T=(k+l)/2 when k is odd. 

The accompanying source code models 
the basic on-off feedback control system 
underlying a flushing toilet The interested 
reader may want to try his hand at con- 
structing the model befwe reading further. 

The program simulates the mechanical 
system by implementing the control logic 
with embedded computations as a set of 
production rules (condition > action). This 
programming style is natural for building 
complex causal models because sequenc- 
ing is less important when most factors act 
concurrently. 

Some of the inaccuracies in the model 
are due to the fact that it is a discrete model 
and because it ignores physical properties 
such as the inertia of the float, variation in 
water pressure at the valve, the presence of 
objects in the tank which affect flow, and so 
on. However, it does account for the vary- 
ing discharge rate from the flapper opening 
by applying a special case of Bernoulli's 
Equation (obtained by Daniel Bernoulli in 
1738) called Torricelli's theorem: velocity 
= sqrt(2*G*H), for the velocity of water 
leaving an orifice at a distance H down 
from the water level. 

Experimentation is relatively easy, 
since new rules can be added at any time to 
extend or restrict the model. The radical- 
shaped curves in Figure One show the time 
behavior of the system under both water- 
tight and leaky conditions. Under leaky 
conditions, the system tends toward three 
states: overflowing, underfilling, or oscil- 
lating. 



( Convert 6 to in/5ec»sec ) X 12.0 X 32.0 F* IS 6 




( Coapute B£TA--pixels/inch ) I 100.0 I 12.0 F/ IS BETA 


( Med Resolution ) C-320 HIRE 17 GROUND ( dark blue background ) 


: DRAK-GRAPH ( -- ) 




50 50 150 270 1 RECT 




I 150.0 H2 BETA F* F- F->S DUP 50 SWAP 270 1 LINE 




X 150.0 HI BETA F» F- F->S DUP 50 SNAP 270 1 LINE 




7. 150.0 HO BETA F» F- F->S DUP 50 SNAP 270 1 LINE 




8 4 WCURSORi ." H2" 




10 4 NCURSOR! ." HI' 




16 4 ifiCURSOR! ." HO" 




20 9 WCURSORI ." FLAPPER LEAK=" FLAPLEAK F. 




21 9 WCURSORi VALVE LEAK=' VALVLEAK F, 




22 9 WCURSORi .» PRESS F TO CONTINUE" ; 




: INITIAL-CONDITIONS ( - ) 




LENBTH WIDTH F» HI F* IS FULL 




F=PI R R F» Ft IS AREA 




DOWN IS FLAPPER 




OFF IS VALVE 




HI IS H 




FULL IS VOLUME 




7 IS TIME 




I 0.01 IS DT 




I 0.0 IS ALPHA ; 




: SELECT-PARAMETERS ( - ) 




CR ." Enter sisulation tite in seconds:' 


FtIN IS FINISH 


I 220.0 FINISH F/ IS ALPHA ( pixels/second ) 




CR ." Enter asount of flapper leak in cu in/sec: " 


F#IN IS FLAPLEAK 


CR ." Enter a«ount of valve leak in cu in/sec: " 


FtIN IS VALVLEAK 


CR ." Enter ti«e step: " 


FUN IS DT i 


\ Velocity of water out of the flapper opening 




: VELOCITY ( - ) 8 H F» J 2.0 F» FSQRT ; 





Robert Garian is a technical information and language specialist at the Library of 
Congress, specializing in Soviet computing. He has a mathematics degree from 
George Washington University and is the founder of Hibiscus Software and Word- 
ware, a software and information company in Arlington, Virginia. A member of the 
American Association for Artificial Intelligence, he has written an AI program called 
Block Solver that automatically rearranges one multistack configuration of blocks 
into a specified goal configuration under constraints. He has worked on automatic 
software verification and automatic code generation, and is interested in the simula- 
tion of complex systems, cellular automata, and genetic algorithms. 
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: PLOT ( -- ) 
(row ) I 150.0 BETA H F» F- F->S 
( col 1 TIME ALPHA F« F->S 50 + 2 PIX! ; 

\ AssuRptions: 

\ .6 is a guess at the drag coefficient for Mater leaving the opening. 
\ 90.0 seconds is the total tiie required for one cycle. 
\ Tank is 19x12x7. Hax water level is H2 = 10 = height of overfloH pipe. 
: FLUSH ( -- ) 

INITIAL-CONDITIONS 

WIPE 

SELECT-PARAHETERS 
WIPE 

DRAH-6RAPH 
3 1 WCURSOR! . 
PLOT 

UP IS FLAPPER 
BEGIN 

FLAPPER UP 
FLAPPER UP 
FLAPPER DDNN = 
FLAPPER DQKN = 
FLOAT FALLINB = 
VALVE ON 
VALVE OFF 
H HO F<= 
H HI F> 
H HI F< 
H H2 F> 
-1 

\ Update display: 
1 1 WCURSOR! . 

1 20 WCURSOR! . 

2 1 WCURSOR' . 
2 20 WCURSOR! . 



TIHE STEP=" DT F. 



IF AREA VELOCITY F* X .6 F* IS OUTFLOW THEN 
IF FALLING IS FLOAT THEN 
IF RISING IS FLOAT THEN 
IF FLAPLEAK IS OUTFLOW THEN 
IF ON IS VALVE THEN 
IF FULL I 90.0 F/ IS INFLOW THEN 
IF VALVLEAK IS INFLOW THEN 
IF DOWN IS FLAPPER THEN 
IF OFF IS VALVE THEN 
IF ON IS VALVE THEN 
IF VALVLEAK IS OUTFLOW THEN 
IF VOLUHE OUTFLOW INFLOW F- DT F» F- IS VOLUME 
VOLUME LENGTH WIDTH F» F/ IS H PLOT THEN 



TIHE='' TIHE F. 
VOLUME=" VOLUME F. 
FLAPPER IS " FLAPPER IF ." 
VALVE IS " VALVE IF ." ON 



UP " ELSE ." DOWN" 
' ELSE ." OFF" THEN 



THEN 



TIME DT F+ IS TIME 
TIME FINISH F> 
UNTIL 

KEY ASCII F = IF WIPE RECURSE ELSE BW80 BYE THEN ; 

\ Note: in HS/Forth 7. and the F-Kords (FIIN,F.,F>,F<=,FINIT,...) relate to 
\ floating point nuibers. VAR words are fast variables that don't need 8. 
\ WCURSOR! is used to place the window cursor, and WIPE clears the screen. 



TETHERBALL IN THE 
NERVOUS SYSTEM 

TheOctober26, 1990 issue of Science 
contains several articles on the appli- 
cation of site-specific mutagenesis 
("systematic clumging of amino acids 
in proteins and studying the conse- 
quences") to the understanding of ion 
channels formed by pores in a nerve's 
membrane. "Playing tetherball in the 
nervous system" by Marcia Barinaga 
(pp. 506-7) describes the results of 
this research. Building on the work of 
Clay Armstrong and Francisco Beza- 
nilla in the 1970s, Richard Aldrich, 
Toshinori Hoshi, and William Zag- 
otta have obtained evidence for an 
unusual voltage-sensing inactivation 
method (i.e., a method for stopping 
the flow of ions through a pore). 
"Imagine a protein tetherball, dan- 
gling by a protein cord on the inside of 
a nerve cell's outer membrane: while 
the tetherball floats free, ions pass 
into or out of the cell; but when the 
ball pops into the mouth of a pore, the 
ion flow stops." By stretching and 
inverting some of the concepts in- 
volved, this remarkable molecular 
mechanism can be made to corre- 
spond to the control system of our 
model if we allow the following simi- 
larities: tank:nerve cell and surround- 
ing fluid, ion channel/pore:orifice, 
voltage-sensing mechanism: float, 
ball and chain:flapper and chain (here 
the flapper is normally open instead of 
closed), ion solution: water. The valve 
might be Ukened to the effects of os- 
motic pressure acting on the ion chan- 
nel. Thus, simple control systems can 
be found in astronomical quantities 
even at the molecular level. 
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HARVARD SOFTWORKS 

NUMBER ONE IN FORTH INNOVATION 

(513) 748-0390 P.O. Box 69, Springboro, OH 45066 



MEET THAT DEADLINE t ! ! 

• Use subroutine libraries written for 
other languages! More efficiently! 

• Combine raw power of extensible 
languages with convenience of 
carefully implemented functions! 

• Yes, it is faister than optimized C! 

• Compile 40,000 lines per minute! 

• Stay totally interactive, even while 
compiling! 

• Program at any level of abstraction 
from machine code thru application 
specific lang^uage with equal ease 
and efficiency! 

• Alter routines without recompiling! 

• Use source code for 2500 functions! 

• Use data structures, control 
structures, and interface protocols 
from any other language! 

• Implement borrowed feature, often 
more efficiently thaui in the source! 

• Use an architecture that supports 
small programs or full megab)^ 
ones with a single version! 

• Forget chaotic S3nitax requirements! 

• Outperform good programmers 
stuck using conventional languages! 
(But only until they also switch.) 

HS/FORTH with FOOPS - The only 
full multiple inheritance 
interactive object oriented 
language under MSDOS! 

Seeing is believing, OOL's really are 
incredible at simplifying important 
parts of any significant program. So 
naturally the theoreticians drive the 
idea into the ground trying to bend all 
tasks to their noble mold. Add on 
OOL's provide a better solution, but 
only Forth allows the add on to blend 
in as an integral part of the language 
and only HS/FORTH provides true 
multiple inheritance & membership. 

Lets define classes BODY, ARM, and 
ROBOT, with methods MOVE and 
RAISE. The ROBOT class inherits: 

INHERIT> BODY 

HAS> ARM RightArm 

HAS> ARM LeftArm 
If Simon, Alvin, and Theodore are 
robots we could control them with: 
Alvin 's RightArm RAISE or: 
+5 -10 Simon MOVE or: 
+5 +20 FOR-ALL ROBOT MOVE 
Now that is a null learning curve! 



WAKE UP ! ! 1 

Forth is no longer a language that 
tempts programmers with "great 
expectations", then firustrates them 
with the need to reinvent simple tools 
expected in any commercial language. 

HS/FORTH Meets Your Needs! 

Don't judge Forth by public domain 
products or ones from vendors 
primarily interested in consulting - 
they profit from not providing needed 
tools! PubUc domain versions are 
cheap - if your time is worthless. 
Useful in learning Forth's basics, they 
fail to show its true potential. Not to 
mention being s-l-o-w. 

We don't shortchange you with 
promises. We provide implemented 
functions to help you complete your 
apphcation quickly. And we ask you 
not to shortchange us by trying to 
save a few bucks using inadequate 
public domain or pirate versions. We 
worked hard coming up with the ideas 
that you now see sprouting up in other 
Forths. We won't throw in the towel, 
but the drain on resources delays the 
introduction of even better tools. Don't 
kid yourself, you are not just another 
drop in the bucket, your personal 
decision really does matter. In return, 
well provide you with the best tools 
money can buy. 

The only limit with Forth is your 
own imagination! 

You can't add extensibility to fossilized 
compilers. You are at the mercy of 
that language's vendor. You can easily 
add features from other languages to 
HS/FORTH. And using our automatic 
optimizer or learning a very little bit 
of assembly language makes your 
addition zip along as well as in the 
parent language. 

Speaking of assembly language, 
learning it in a supportive Forth 
environment turns the learning curve 
into a light speed escalator. People 
who failed previous attempts to use 
assembly language, conquer it in a few 
hours or days using HS/FORTH. 



HS/FORTH runs under MSDOS or 
PCDOS, or from BOM. Each level includes 
all features of lower ones. Level upgrades: 
$25. plus price difference between levels. 
Source code is in ordinary ASCII text files. 

All HS/FOBTH systems support full 
megabyte or larger programs & data, and 
run faster than any 64k limited ones even 
without automatic optimization ~ which 
accepts almost anything and accelerates to 
near assembly language speed. Optimizer, 
assembler, and tools can load transiently. 
Resize segments, redefine words, eliminate 
headers without recompiling. Compile 79 
and 83 Standard plus F83 programs. 

PERSONAL LEVEL $299. 
NEW! Fast direct to video memory text 
& scaled/clipped/windowed graphics in bit 
blit windows, mono, cga, ega, vga, all 
ellipsoids, splines, bezier curves, arcs, 
turtles; lightning fast pattern drawing even 
with irregular boundaries; powerful 
parsing, formatting, file and device I/O; 
DOS shells; interrupt handlers; 
call hi^ level Forth from interrupts; 
single step trace, decompiler; music; 
compile 40,000 lines per minute, stacks; 
file search paths; format to strings, 
software floating point, trig, transcen- 
dental, 18 digit integer & scaled integer 
math; vars: A B * IS C compiles to 4 words, 
1..4 dimension var arrays; automatic 
optimizer for machine code speed. 

PROFESSIONAL LEVEL $399. 

hardware floating point - data structures 
for all data types from simple thru 
complex 4D var arrays - operations 
complete thru complex hyperbolics; 
turnkey, seal; interactive djnaamic linker 
for foreign subroutine libraries; round 
robin & interrupt driven multitaskers; 
dynamic string manager; file blocks, 
sector mapped blocks; x86&7 assemblers. 

PRODUCTION LEVEL $499. 
Metacompiler: DOS/ROM/direct/indirect; 
threaded systems start at 200 bytes. 
Forth cores from 2 kbytes; 
C data structures & struct+ compiler, 
Turbo Window-C MetaGraphics library, 
200 graphic/window functions, PostStript 
style line attributes & fonts, viewports. 

ONLINE GLOSSARY $ 46. 

PROFESSIONAL and PRODUCTION 
LEVEL EXTENSIONS: 

FOOPS+ with multiple inheritance $ 79. 
TOOLS & TOYS DISK $ 79. 

286FORTH or 386FORTH $299. 

16 Megabyte physical address space or 
gigabyte virtual for programs and data; 
DOS & BIOS fully and freely available; 
32 bit address/operand range with 386. 

ROMULUS HS/FOETH from BOM $ 99. 

FFORTRAN translator/mathpak $ 79. 
Compile Fortran subroutines! Formulas, 
logic, do loops, arrays; matrix math, 
FFT, linear equations, random numbers. 

Shipping/system: US: $7. Canada: $19. 
foreign: $49. We accept MC, VISA, & AmEx 
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SOVIET 

FORTH-INFO 



DAVID KIPPING - MENLO PARK. CAUFORNIA 



A 

xxs part of a 'Teople-to-People" pro- 
gram , I visited the Soviet Union from Octo- 
ber 9-22, 1 990. 1 was part of a delegation of 
engineering, political, environmental, and 
business leaders who met with Soviet 
counterparts in their various areas of exper- 
tise. As a member of the engineering dele- 
gation, I visited several Soviet businesses, 
institutes, and manufacturing facilities. At 
all of these, there was considerable interest 
in computing, especially using IBM-com- 
patible personal computers. 

One of the businesses that was visited 
by the engineering delegation was Forth- 
Info, a Soviet cooperative. They specialize 
in Forth-based software and hardware. My 
professional background is in computer 
software, with current interests in graphical 
user interfaces for PCs. Previously, I spent 
seven years involved with Forth-based 
software, so I feel quite qualified to evalu- 
ate the activities of Forth-Info. 

Forth-Info Business Structure 

Forth-Info is structured as a cooperative 
business based in Leningrad. Cooperatives 
are a recent Soviet phenomenon, and are 
more-or-less like a U.S. private business. 
The company was started in 1988 by Boris 
Katsev and his son Sergei Katsev. The 
company has about 70 employees and asso- 
ciates. The actual number of employees is 
about 30, with the rest operating on some 
kind of an independent-contract status. 
Like all things in the Soviet Union, the ar- 
rangements are complex and interlocked. 
[More information about the company is 
presented in the accompanying sidebar, 
which was written sometime in 1989.] 

Forth-Info is in the process of designing 
a building of its own. (It is now in rented 
and donated quarters.) The building will be 
five stories (matching adjacent buildings) 
on land that will be obtained from the 
government on a 50-year lease. Two floors 
will be occupied by the Ministry of Educa- 
tion, one floor will be devoted to computer 



education, and one floor will contain the 
offices and laboratories of Frath-Info. One 
wing will be devoted to about 30 apart- 
ments, sufficient for all the staff of Forth- 
Info. In addition, there will be several spare 
apartments which are allocated for visiting 
researchers. Forth-Info hopes to sponsor 
exchange programs with U.S. businesses 
and institutions, and apartments for visitors 
are necessary in the Soviet system. 



There is no copyright 
protection for soft- 
ware in the Soviet 
Union. 



The main source of income for Forth- 
Info seems to consist of contracts with 
various ministries for custom software 
development One such project is a system 
for screening blood donors. Another proj- 
ect is a real-time control system for rail- 
ways, which uses a Soviet fault-tolerant 
computer. Forth-Info also runs a school for 
the Ministry of Education that teaches 
computer programming and operations to 
grade school and high school students in a 
hands-on laboratory. 

Technical Activities 

Although contract programming is the 
primary source of income, the main interest 
for the future is standard products. Since 
there is no copyright protection for soft- 
ware in the Soviet Union, making a profit 
on standard products is difficult. A six- 
page product summary gives a description 
of Forth-Info's activities and offerings. 
Although I did not test or evaluate all these 
products, I believe they are real and operat- 
ing as described. I was able to evaluate 
some of the products: 

Forth Language Description. I in- 



spected the documentation for a Forth lan- 
guage product (InfoForth or AstroForth). 
It has a complete description of language 
primitives in sufficient detail for an expe- 
rienced Forth program mer to proceed. The 
text was in Russian, but all the Forth primi- 
tives were in Roman characters and easily 
understood. 

InfoTransHemo. This program for 
blood screening is apparently in wide- 
spread use at Soviet blood donation sta- 
tions. One of the main difficulties was 
matching report formats and input require- 
ments to existing procedures and forms. 
(Probably, the problem was finding out 
what these procedures and forms were!) 

Forth Development System. I got a 
brief look at available development tools 
for Forth. The editor, file control, and exe- 
cution environment seemed quite ade- 
quate. 

InfoWeaver. This program for textile 
pattern design was quite impressive. It 
runs on aPC and uses a fuU-colOT graphical 
interface. It seemed easy to use, and ap- 
peared to provide the level of control that 
a designer would want. Patterns and colors 
could easily be changed and the results 
displayed immediately. Response was 
very fast. The output is a report which 
gives explicit set-up information for 
looms. In the Soviet Union, looms are 
manually set up, but automatic set-up in- 
formation could be output on paper tape or 
floppy disk for looms that were so 
equipped. This product was up to U.S. 
standards for look, feel, and functionality. 
Forth-Info provided a demonstration disk 
of the product. 

Infol816. I was able to spend a fair 
amount of time with this product It is a 
simulator and emulator for the Intel 8048 
microprocessor, and runs on a PC inter- 
faced to an in-circuit emulator. The user 
interface consists of tiled windows for edi- 
tor, assembler, status, and output informa- 
tion. Programs for the chip can be edited, 
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assembled, and run in a simulation, or actu- 
ally executed using the in-circuit emulator. 
The bulk of the code is not dependent on the 
specific microprocessor, and Forth-Info is 
extending it for other Intel processors. This 
product was up to U.S. standards for func- 
tionality and user interface. 

I have no doubt that the other products 
which are described in their literature are of 
equal quality and professionalism. Forth- 
Info is aware of the state of the art of U.S. 
and world developments, and is operating 
at a similar level. 

Computer Education Activities 

Forth-Info has an arrangement with the 
Ministry of Education to provide training in 
computers for school-age children. A ma- 
jor part of their facility is a large classroom 
equipped with computers for student use. 
About 20 students (average age about 12 
years) were in the classroom, each with his 
own computer. By the time we had arrived, 
formal classes were over and the students 
were all playing computer games! Tetris 
and a road-racing game seemed to be the 
most popular. 

The computer arrangement was rather 
interesting. Each student station consists of 
a system unit, display, and keyboard 
(Roman and Cyrillic) widi BASIC built 
into ROM. The processw is an 8080 run- 
ning CP/M, and all the student stations are 
linked in a local area network to a master 
(instructor) station. None of the student 
stations has a floppy disk (or hard disk), but 
the instructor station had floppy disks and a 
printer. The system seems to work quite 
well, because 12-year-olds had no trouble 
getting their favorite games running. 

Apparently, the education and training 
activities of Forth-Info are quite important 
to the company and to the Ministry of Edu- 
cation. This explains the close connection 
with the ministry with respect to Forth- 
Info's building plans. 

Soviet PCs Really Exist! 

Forth-Info was the last stop on our two- 
week tour of businesses in the Soviet Un- 
ion. PCs are in great demand and are very 
expensive, since they are all imported and 
paid for with hard currency. Most of the 
units we saw seemed to be manufactured in 
the Far East (Hyundai and Epson were two 
brands I recognized). The cost of a PC is 
equivalent to about ten years' salary for a 
senior professional, which explains the 
Fort Knox-type security of all computer 



rooms. 

Previously, we had visited a Soviet 
computer factory and suggested that they 
design and manufacture PC clones. They 
said it was not possible because compo- 
nents (chips, floppy drives, and hard didcs) 
are not available and, besides, Soviet com- 
puters are not reliable. At other businesses 
and institutes, we were again told that the 
Soviet Union does not manufacture any 
PCs. 

After visiting the student training room 
at Forth-Info, we went into another room 
which contained several machines of the 
same type. I asked what they were, and was 
told that they are Soviet-made PCs. In one 
cwner, a woman was using one of them to 
prepare a document (in Russian) using a 
word processor. 

The machines consist of a small desktop 
box (about 14 inches wide) for the system 
unit and a similarly sized box for the two 
five-inch floppy disks. There was no hard 
disk in evidence. A standard monochrome 
monitor and keyboard (Roman and Cyril- 
lic) completed the configuration. The de- 



sign is about five years old and the ma- 
chines we saw were several years old. 
There seems to be no effort to produce a 
new design, or much interest in manufac- 
turing and distributing this model. The 
criticisms of this Soviet PC were that it had 
some compatibility problems, was not reli- 
able, and was not up to date. Several people 
said they would prefer to have no computer 
at all, rather than use the Soviet PC for de- 
velopment. They rejected the concept of 
using the cheap and available Soviet PC for 
initial development and using an expen- 
sive, imported PC to check compatibility 
and final functionality. 

Forth-Info Business Goals 

Forth-Info is interested in publishing 
their products in the U.S ., and of particular 
promise are InfoWeaver and Infol816. 
They recognize that the manual and pack- 
aging must be brought up to American 
standards, and that they will need an 
American publisher and distributor. Our 
delegation offered to assist them in locat- 
ing these resources. 



Forth-Info 

The cooperative Forth-Info started its activities at the Leningrad University in 
early 1988. Programmers of the highest qualification from various Leningrad re- 
search enterprises are working here. Forth, a fourth-generation language, and hard- 
ware-software problems are their common area of interest. 

Forth-Info is now developing Forth-based commercial software for personal com- 
puters, mini- and microcomputers, OEM. Forth systems for all computers that are 
widely used in the U.S.S.R. have been created by members of the cooperative. Soft- 
ware development systems and applications packages in Forth have been developed 
and are on sale. A threaded-code processor, executing Forth code at the hardware 
level, is now being designed as a single chip. 

Forth-Info also propagates Forth and teaches people. Its members participated in 
creating the first two Forth manuals published in Russian and in the U.S.S.R. A 
translation of Leo Brodie's Starting Forth and Thinking Forth is being prepared for 
publication under the editorial supervision of some members of the cooperative. 

Members of the cooperative give lectures on Forth to a wide range of programmers, 
paying special attention to programmers from industry. At the end of 1989, the 
cooperative planned to organize an all-Union conference of Forth users in the 
U.S.S.R. Its aim is to exchange information and experience about Fwth applications 
and to start organizing an association of Forth users. Foreign participants were also 
expected. 

The chairman of Forth-Info is B. Katsev. Leading specialists and authors of Forth 
software are I. Agamizian, A. Astonovsky, S. Katzev, V. Kirillin, A. Klubovich, N. 
Nozdrunov, V. Patryshev, and S. Tovstolugsky. There are 28 specialists on the staff 
of Forth-Info, 11 with Ph.D. degrees; 40 more work on contract 

Forth-Info will support any contacts with the Forth community, both in the U.S. 
and in Europe. 

Forth-Info Co-q), P.O. Box 279, 10a, O.Koshevoy SL, 197198, Leningrad, 
U.S.S.R. Telephone (812)-233-3410. 
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ARRAYS 

IN FORTH 

LEONARD MORGENSTERN - MORAGA, CALIFORNIA 



A 

1\. natural question beginners often ask 
is: Why doesn'tForth have features that are 
standard in other languages, for example, 
arrays? The answer is. Forth is so facile at 
creating new data types that it is often easier 
to invent something that exactly suits one' s 
needs than to force a program to conform to 
some arbitrary standard. The upcoming 
ANSI standard for Forth will not include 
specifications for arrays, which is as it 
should be, in my opinion. An exploration of 
examples will explain why. 

It is important to recognize that Forth 
arrays are not the same as the abstract 
arrays of mathematics, on the one hand, or 
the arrays of conventional computer lan- 
guages, on the other. In mathematics, an 
array is simply a set of numbers arranged in 
a pattern. Conventional computer lan- 
guages add an action: an index is accepted 
and a quantity is returned. Arrays in Forth, 
as a rule, return the address where the data 
resides, but can return the data itself or 
perform an action; and arrays that do other 
things are easy to assemble, as we will see. 

The following way of defining arrays is 
economical and fast, and is so popular that 
many Forth programmers mistakenly be- 
lieve that it is standard: 

: ARRAY ( n ) ( i a) 

CREATE 2* ALLOT DOES> 
SWAP 2* + ; ( 1 ) 

At defining time, two bytes of memory 
are allotted for each element of the array; at 
run time, an index i is used to compute an 
address a where data can be fetched, stored, 
or otherwise manipulated. The index and 
the address are simple — that is, they each 
consist of one single-precision integer. 
Each element occupies two bytes in dic- 
tionary space, and the array has one dimen- 
sion. There is no range checking. I cite 
these features in detail because any or all of 



them can be altered, thereby broadening the 
defmition. 

A narrower definition is used by F-PC: 

: ARRAY ( n -- ) ( a) 

CREATE 2* ALLOT ; ( 2 ) 

This allots the same amount of space as the 
previous defmition, but at run time takes no 
index, always returning the address of the 
origin. My prejudice is that this is not an 
array, but rather a work area, or buffer. But 
to avoid semantic controversies, I will use 
the terms indexed and non-indexed fat the 
two kinds of arrays. 



Many programmers 
mistakenly believe it 
is standard. 



An Array with 
Elements of Any Length 

The first definition above is restricted to 
elements of length 2 in one dimension. The 
word -BYTE -ARRAY (Screen One) ex- 
pands this to arrays with elements of any 
length in one or two dimensions. Two ex- 
amples are presented: a one-dimensional 
array named FOOl with 200 six-byte ele- 
ments, and a two-dimensional array named 
F002 with 200 12-byte elements arranged 
in ten rows and 20 columns. F002 takes a 
compound index consisting of two inte- 
gers, one for each dimension. The order of 
the two is the same as that used to declare 
the array. Therefore, il ranges from 0-9 
and i2 from 0-19. 

I like the English-like syntax of 
-BYTE - ARRAY. A purist might complain, 
but similar constructs are used a lot in 
Forth, and the results can be elegant. The 
elegance is not always free: here, there is a 



cost in run-time speed. The word 
2 -DIMENSION is a dummy with no ac- 
tion, included for parallelism. This sort of 
thing is sometimes contemptuously called 
"syntactic sugar," suggesting that it is 
pleasant but unessential and even harmful. 
Actually, it is like giving a box of fine 
chocolates to someone you love: the bene- 
fits far outweigh die cost 

Fields 

When using an array with long ele- 
ments, it is useful to subdivide them into 
fields. In Screen Two, a defining word 
FIELD creates a class of Forth words to 
reference these. For instance, if each ele- 
ment of FOOl (Screen One) represents a 
node of a binary tree, the six bytes can be 
subdivided into three fields: a right pointer, 
a left pointer, and data. The words .left, 
.RIGHT, and .DATA provide access to 
these. The "dot" syntax is copied from 
Pascal. These are not just names: as with all 
Forth words, they have an action, which in 
this case is to increment the preceding ad- 
dress. For example, 3 FOOl .RIGHT 
specifies the address of the right pointer of 
the third element of FOOl. 

Arrays of Bits 

We next proceed to describe something 
more complex: an array of bits. It uses a 
non-indexed array of bytes named MASKS 
(Screen Three) which contains powers of 
two, from one to 128. MASKS is initialized 
by the useful technique of "comma-ing," 
which is often superior to defining an 
empty array and then filling in the values. 

Locating a bit requires two integers — a 
mask and a RAM address — representing a 
compound address which can be used di- 
rectly by Forth words that manipulate bits, 
such as cset, creset, and ctoggle. 
The address is computed by using the se- 
quence: 
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\ Screen 1. A versatile array definer. 



: -BYTE-ARRAY ( r c n ) ( r c addr; or c — addr) 




CREATb DUF ^OVhjK i i i KUl X MAA ^ AJjliUi 




DOES> DUP 2+ @ 0= IF -ROT THEN ( Fix stack if 1 


-dim) 


>R SWAP R@ * + R@ 4 + @ * R> 6 + + ; 




: 1-DIMENSION ( C C) SWAP ; 




: 2 -DIMENSION ; 




\ Examples 




200 1-DIMENSION 6 -BYTE-ARRAY FOOl 




10 20 2-DIMENSION 12 -BYTE-ARRAY F002 




\ Note that there must be a space before the first hyphen 


in 


\ -BYTE-ARRAY but not before the second. 





8 /MOD ( 8 n rem quot) 

The quotient is added to the base address of 
the array, and the remainder is used to fetch 
the made from bytes. 

Using a bit array to manage an imagi- 
nary lighting system is illustrated in Screen 
Three. Other examples of arrays that return 
compound addresses are those situated in 
virtual memory ( i — ofs blk) or in ex- 
panded or extended memory ( i — seg 
ofs). 

Some Random Thoughts 

The indexed arrays discussed up to this 
point return an address, which may be 
simple or compound. Thus, they do what 
Forth variables do, and may properly be 
regarded as "vari ABLE-like." If the con- 
tents were returned instead, the designation 
"VALUE-like" would be appropriate. Ar- 
rays that contain actions (CPAs) are widely 
used, and are called "execution vectors" or, 
sometimes, just "vectors." And, of course, 
a Forth array can contain a mixture of these 
types. 

It is usual to construct arrays by means 
of defining words, but this is a convenience 
and not a necessity. The array MASKS was 
created without one. A defming word is 
essential when several structures of the 
same kind are wanted, but also can be 
useful when defining a solitary example. 

For simplicity, I have omitted range 
checking from the examples. Almost al- 
ways, this is a necessity. It may be omitted 
only if the index cannot possibly be out of 
range, as when a keystrcrfce is masked by 
255 AND and is used to index into an array 



of 256 elements. (A programmer wounded 
by a past encounter with Murphy might 
check anyway.) Forth words are more ef- 
ficient and easier to debug if their parame- 
ters are guaranteed correct The word that 
does the checking and takes corrective ac- 
tion should, as a rule, precede the array 
word and not be part of its definition. 

Forth vs. Other Languages 

Recently, I came across the following 
statement in a textbook: "Each language 
provides a limited number of elementary 
data types." I have become so accustomed 
to the power and flexibility of Forth 's CRE - 
ATE . . . DOES> that it was a shock to recall 
how limited other languages can be. In 
Forth, as we have seen, new data types can 
be created and abandoned at the convenien- 
ce — or even at the whim — of the program- 
mer. True, some Forth constructs are so 
useful that they have become official or de 
facto standards (constant and vari- 
able, for example) but it is more usual for 
a programmer to define what is needed in 
the most convenient way. As always, free- 
dom has its costs, one of which is a greater 
need for documentation. When you declare 
an array in BASIC, you describe its pur- 
pose, but you do not have to describe what 
it is or how it works, as you must in Forth. 

Another source of subtle complications 
is the fact that defining words not only al- 
locate memory for their contents, they also 
specify the action they will perform with or 
on those contents. In effect, the simplest 
Forth program incorporates object-ori- 
ented features. Niklaus Wirth claimed that 
algorithms + data structures = programs. 



and he thought so highly of the slogan that 
he made it the title of a book. The foregoing 
discussion suggests that, in Forth at least, 
there is no clear separation between data 
and the algorithm. 



Leonard Morgenstern is a retired pa- 
thologist and computer hobbyist. His 
interest in Forth goes back over ten 
years. Currently, he is a sysop of the 
Forth RoundTable on the GEnie 
network. His son, David Morgen- 
stern, is also an author on computer- 
related subjects. 
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\ Screen 2 . Defining subfields within array elements . 















CREATE FIELD-OFFSET 


e 


, FIELD-OFFSET +! 








FIELD-OFFSET OFF 






2 FIELD .LEFT 


\ 


Define 3 subfields, each of length 2 


2 FIELD .RIGHT 






2 FIELD .DATA 







\ Screen 3. A bit array. 



CREATE MASKS 128 C, 64 C, 32 C, 16 C, 8 


C, 4 


C 


, 2 C, 1 C, 


\ In creating a bit array, len is the ceiling 


of the number 


\ of bits divided by 8. 










BIT-ARRAY ( len ) ( i — ma) 










CREATE ALLOT 










DOES> SWAP 8 /MOD MASKS + CO -ROT + ; 








\ Creating a light controller for 24 lights. 


Uses a 


\ vocabulary named LIGHTS because we are 


redefining ON and OFF 


3 BIT-ARRAY LIGHT 




\ 


3 bytes = 24 bits 


VOCABULARY LIGHTS 








LIGHTS DEFINITIONS 










ON ( n ) LIGHT CSET ; 




\ 


Set the bit 




OFF ( n ) LIGHT CRESET ; 




\ 


Reset the bit 




ON? ( n f) LIGHT C@ AND 0<> ; 




\ 


Test the bit 




ALLON ( ) LIGHT 3 127 FILL DROP ; 




\ 


Turn on all bits 




ALLOFF ( ) LIGHT 3 FILL DROP ; 








FORTH DEFINITIONS 








\ EXAMPLES 








LIGHTS 




\ 


Set the vocabulary 


ALLOFF 








12 ON 




\ 


Turn on Light number 12 
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Part Five 



FORST: A 68000 

NATIVE-CODE FORTH 

JOHN REDMOND - SYDNEY, AUSTRAUA 



Deferred words are well established 
in Forth, and they provide a simple means 
of achieving forward referencing and vec- 
tored execution. The concept was origi- 
nally developed for indirect-threaded code 
systems, and it implicidy makes use of the 
headers which are present at run time. 

To use a simple example: 

DEFER GREET 
: NICE 

. " Good morning" ; 
^ NICE IS GREET 

When GREET is executed, we get the 
"Good morning" message, of course. But, 
because greet is DEFERed, we can 
change its behavior: 

: GROAN 

." You again!" ; 
' GROAN IS greet 

All this is obvious — but what if we 
incorporate greet into a higher-level 
word? 

: GREETING 

GREET <further code> ; 

Now the run-time behavior of GREET- 
ING will depend on the state of Greet 
when GREETING is executing. Even if 
greeting is compiled when GREET is 
NICE, it will not stay friendly if it is made 
to GROAN. 

This late binding of behavior lends 
great flexibility to compiled code but, be- 
cause it involves decision making at run 
time, it may not always be appropriate. For 
those cases where we want the vectoring to 
take place at compile time (early binding), 
ForST provides a new class of configurable 
word — a vectored word: 

VECTOR SAY-HELLO 



The Compilation Record 

Before compiling a normal word, the 
ForST compiler looks up its code address 
(as an offset in the CFA) and fetches its op- 
timization flags (from the FFA). In these, it 
has all that is necessary to compile a call to 
the code, or to expand it with optimization. 
A deferred or vectored word also needs this 
information to specify completely its pres- 
ent status. To this end, its PFA points to an 
eight-byte compilation record: 

bytes 0-3: offset address of actual 
code 

bytes 4-7: FFA corresponding to this 
code 

(This arrangement of fields was chosen so 
that code which uses ' (tick) and PER- 
FORM will operate in the usual way.) 

When a deferred or vectored word is 
first defined, its compilation record is ini- 
tialized to point to a NOOP. When it is 
subsequently modified (by IS), the record 
is altered: 

HEAD GREET IS SAY-HELLO 

HEAD returns the CFA of a word. Its use 
(rather than ') allows access to the neces- 
sary header fields of GREET and separates 
the activity of the vector word from the 
header of the vectored word. This header 
need not even continue to exist! (Note: in 
ForST, ' still returns the address of code or 
data in the usual way.) 

Because they have no directly bound 
code, when a number of VECTOR words are 
defined in sequence, their compilation rec- 
ords will be located in adjacent memray 
with no intervening breaks. This array, a 
state table, is a very concise summary of 
their present behavior and, as such, can be 
saved to another array — or initialized from 
one — ^by simple block moves. 



Arithmetic States 

There are far too many words in Forth, 
and there is sense in trying to avoid further 
unnecessary proliferation. When a float- 
ing-point package is available, for instance, 
a number of new words appear to become 
necessary, e.g., fnumber, f., f+, f-, 

F*, F/, FMOD, FNEGATE, and FABS. 

They can be avoided at the user level by 
setting up the familiar number words 
(NUMBER, . , +, etc.) as vectored words, 
with their compilation records in a state 
table. REALS and integers can then be 
used as immediate words to manipulate its 
contents at compile time. This approach of 
overloading existing words makes it pos- 
sible to write very clean code (Figure One). 

Separating Compile-time and 
Run-time Activities 

ForST enables the programmer to cre- 
ate completely independent application 
code. To do this most effectively, it is 
necessary to separate compile-time code 
and execution code — to unthread (or un- 
bind) some of the support we take for 
granted in a Forth system. 

The compilation of string literals is a 
good illustration of the way compilation 
and execution functions are bound up: 



COMPILE (.") 
," ; IMMEDIATE 

When . " is encountered at compile 
time, it has an immediate action of 
compiling ( . " ) and then enclosing a 
counted string in the compiled code. The 
roles of ( . " ) and , " are quite different, 
and take place at different times. There is, 
therefore, no reason for them to have a fixed 
relaticMiship in code space. 

The real difficulty with this definition 
of . " is that the run-time code, ( . ") ,must 
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\ Demonstration code to illustrate the use of 

\ arithmetic states and vectoring of . + and number input. 

\ The code will print out sines of angles at 0.05 radian 
\ intervals, waiting for a key stroke after each step. 
\ The infinite loop is ended by pressing <ESCAPE>. 
\ Note that local constants and addresses are permitted 
\ because they occupy no code space. 

macros 

decimal integers 

: sines { 1 reg angle 27 constant escape ) 
reals 

cr to angle 
begin 

angle . angle sin . cr 
angle 0.05 + to angle 
integers 

key escape = if leave then 
again ; 

\ Simple trigonometric functions 

decimal reals 

355 113 / constant pi 
pi 2 / constant pi/2 
pi 2 * constant 2pi 

: (sin) { 1 arg angle 2 locals square term ) 

angle to term 

angle angle * to square 

angle term square * to term 

term -0.1666667 * + term square * to term 

term 0.0083333 * + term square * to term 

term -0.0001984 * + term square * to term 

term 0.0000028 * + ; 

: sin { 1 arg angle 1 local sign } 



to sign 
to angle 



angle 0< 
angle abs 
angle 2pi > 

if angle 2pi mod to angle then 
angle pi > 

if angle pi - to angle sign not to sign then 
angle pi/2 > 

if pi angle - to angle then 
angle (sin) sign if negate then ; 



(Continued on next page.) 




Figure One. 



NGS FORTH 

A FAST FORTH ^ 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
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•79 STANDARD 

•DIRECT I/O ACCESS 
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FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI -SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 

DEBUGGING AIDS 

•8088 ASSEMBLER 
•GRAPHICS & SOUND 
•NGS ENHANCEMENTS 
•DETAILED MANUAL 
•INEXPENSIVE UPGRADES 
•NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 
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IIS 
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(Figure One, continued.) 

: cos pi/2 + sin ; 

: tan dup sin swap cos / ; 

decimal integers ( default state) 



d_array : 


bsr 


create 






bsr 


over 






bsr 


comma 






bsr 


mult 






bsr 


allot 






bsr 


xdoes 


;end of compile-time 


code 








comp rec : 


del 


offset (rtime) 


/address of run-time 


code 










del 





/default FFA (no mac- 


ros) 








rt ime : 


rts 




;noop code unless de- 


fined after DOES> 





Figure Two. 



array { 2 regargs #rows tcolumns } 
create #rows w, #rows #columns * allot 
does> { 3 regargs row column address ) 
address inc w@ column * row + 
address + ( return address) ; 



Figure Tliree-a. 



: d_array { 2 regargs #rows #columns } 

create #rows w, trows #columns * allot 
does> ; 

: doarray { 3 regargs row column address } 
address inc w@ column * row + 

address + ( return address) ; 



Figure Three-b. 



be defined before the immediate wOTd, . ", 
can be defined. In other words, the com- 
pilation code is compiled ctfter the run-time 
code and, if we wish to generate free-stand- 
ing application code, we are forced to in- 
clude in it code which has absolutely no 
run-time role. 

This difficulty can be avoided by the 
following: 

VECTOR ( . " ) 

DELAY ( . " ) 

, " ; IMMEDIATE 

The internal code of . " is now a little 
more complex, but specification of the 
address and macro characteristics of ( . " ) 
can now be delayed until . " is needed in a 
definition. (Note that another new word, 
POSTPONE, has essentially the same ac- 
tion as compile.) 

When compile is used in the defini- 
tion of . " , it fetches the CFA and FFA of 
( . " ) and uses them to compile into . ". 
When DELAY is used, on the other hand, a 
pointer to the compilation record is com- 
piled, together with appropriate code to 
access it. The record is outside the applica- 
tion code, and fetching of its contents is 
delayed until . " is used in another defini- 
tion (by this time, it should have been 
initialized by a word in the application 
code). 

Delayed Defining Words 

For all their elegance, words using 
CREATE ... DOES> are traditionally the 
most problematic in their binding of com- 
pile-time and run-time activities. This can 
be avoided by giving them vectored behav- 
ior. To use a Starting Forth example: 

: ARRAY (#rows tcolumns — ) 
CREATE OVER , * ALLOT 
DOES> (row col — address) 
DUP @ ROT * + + CELL+ ; 

Using a delayed DOES>, we can write: 

: D_ARRAY 

CREATE OVER , 
* ALLOT DOES> ; 

At this point, the code for d_array looks 
something like that in Figure Two. (AR 
RAY would differ by having the run-time 
code direcUy after the compilation record.) 
Later in the source code, we might write: 
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8 8 D_ARRAY BOARD 
< more code> 

: DOARRAY 
DUP @ ROT 
* + + CELL+ ; 

HEAD DOARRAY IS D_ARRAY 
<more code> 

: HIGHER_WORD 
5 3 BOARD 
<more words> ; 

In doing this we have used d_array to 
define board without having specified its 
run-time action. 

BOARD, like all constants, variables, 
addresses, and other words defined with 
CREATE ... does>, is an immediate word 
in ForST. When it is used in the definition 
of H I Gher_word, it compiles the address 
of its own data area, then fetches the con- 
tents of a compilation record (embedded in 
array) and incorporates a call to, or a 
macro expansion of, the appropriate code 
(DOARRAY). If the contents of the compila- 
tion record had not been defined at this 
stage, a noop would have been compiled. 

In this way, d_array, a defining 
word, can be kept out of application code, 
and its run-time component initialized (at 
compile-time) from within the application 
code. 

The approach also allows the program- 
mer to vary the action of BOARD, say during 
a debugging session, but a more important 
advantage is that the coding elegance of 
create ... DOES> constructs can be used 
in application code without the penalty of 
including the defining code. 

Clearer and more efficient definitions 
of ARRAY and D_ARRAY, using register 
variables, are given in Figures Three-a and 
Three-b. Note that the ARGS or REGARGS 
for the run-time code must include the 
impUcit address on top of the stack. 



John Redmond is an Associate Pro- 
fessor of Organic Chemistry at 
Sydney's Macquarie University. He 
is a " . . .sometimes-evenings-when-I- 
have-time programmer" who wel- 
comes letters from FD readers: 23 
Mirool Street, West Ryde, NSW 
2114, Australia. 
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FORML XII 

NEIL BAWD - GOAT HILL, CAUFORNIA 



The 



e Twelfth FORML Conference was 
held at Asilomar, Thanksgiving weekend, 
1990. The theme of the conference was 
"Forth in Industry," and the presentations 
gave ample evidence that Forth is doing 
very well in this arena. Forth's fort6 is being 
able to do things which no other language 
can do, given the particular environment. 

The conference began with Guy Kelly 
describing nine projects representative of 
some of his experiences with Forth in 
industry. Guy Grotke expanded with a few 
of his experiences, and Ray St. Laiirent, 
from New Brunswick, demonstrated that 
Forth is equally potent north of the border. 
John Waterman, V.P. of Forth, Inc., spoke 
on event management in process control. 
Ken Butterheld showed how he uses 
Forth at Los Alamos to control serial 
devices. Andrew Scott, in an impromptu 
talk, told how he renamed Forth to be used 
as a language for testing communication- 
line protocol. 



Forth is for profes- 
sionals doing real ap- 
plications in real time. 



Some of these applications are quite 
glamorous, others less so, but all showed 
thatForth has strength in dedicated applica- 
tions unmatched by any other language. 
Forth is a language for professionals doing 
real applications in real time. 

Forth is a language for engineers. Dr. 
Richard Turpin told how he used Forth as 
the language of design in a microprocessor 
systems design course at a California col- 
lege, and Dr. Richard Haskell matched it 
with his account of the use of Forth in a 
required engineering course in a Michigan 
college. In other presentations. Dr. Haskell 



Report by EDWIN ALB 
at FORML XH 

At the 1989 FORML conference, an unofficial unFORML contest was held by the 
participants and their guests. 

"Complete the following sentence: 
Programming is like Sex Because. . ." 

The contest was conducted by the aptly named Neil Bawd, and the judge was an 
expert in the subject — his wife. The contestants, except for the winners, were kept 
anonymous. The following entries were received. 

This entry was rejected by the judge because "eunuchs" was misspelled: 

It isn't much fun to do with unix. 

This entry was rejected because it was unsigned: 

Programming is not like sex because I can still program. 

The Women's Entries 

You never know when to stop. 
Many users are satisfied without documentation. 
Programming is not like sex because sex can't work with software. 
Even with the best preparation, all efforts lead to frustration if the hardware is out 
of order. 

The women's winning entry: 

It's never finished. Anne Edgecomb 

The Men's Entries 

The first three entries are from the same person. 

I can never get enough of it. 

My wife doesn't want me to do either. 

When you do it professionally, it's not as much fun. 

After three days without it, life becomes meaningless. 

Satisfaction is guaranteed with a steady relationship, patient endurance, and lots of 

physical effort. 
When I can't get to sleep I have to do one or the other. 
Experience should improve the experience; when this is not the case one of the 

partners should change. 
Safety is always rewarded — but then so is indulgence. 
It keeps us up late at night making little extensions. 
Most of us use more than just three fingers. 
When you make a mistake you end up supporting it for years. 

The men's winning entry: 

You can hear about it, you can talk about it, you can read about it, you can even 
watch it done by experts, but even with all the fumbling and mess, it's still more sat- 
isfying to get personally involved with it. Nick Grossman 
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described the successful use of Forth for 
handicapping horse races, and the tribula- 
tions of porting eForth to the 68000. 

All other computer languages, com- 
pared to Forth, are languages of bondage 
and discipline. FORML celebrates Forth's 
freedom. Dr. Leonard Morgenstern 
showed how to implement safety nets for 
error recovery and yet another object pro- 
gram in Forth. Dean Sanderson's discus- 
sion of managing dictionaries as packages 
was awarded first prize. Mike Elola 
showed how to incorporate generic stack 
operations. C. H. Ting explained eForth — 
the model, design, and implementation. 

Forth is a language for research and 
development S.Y.Tang uses it for approxi- 
mate rational arithmetic, John Wavrk for 
the study of group theory, Frank Sergeant 
to investigate the use of a three-key key- 
board for text input, Andrew McKewan 
spoke on his use of Forth for 6805 develop- 
ment on a budget and a multi-tasker for the 
68HC 1 1 , Tom Zimmer gave his thoughts on 
Forth for the 90's. 

Someone attending said that FORML 
has become the forum for standardizing 
Forth, and ANSI X3J14 the laboratory for 
modifying Forth. Mitch Bradley's report 
on the progress of ANS Forth gave reassur- 
ance that the ANSI effort will ultimately be 
successful — even his proposal for stream 
I/O in Forth seemed fair and reasonable. 

The reason that I personally prefer 
FORML to other computer conferences is 
that there is always something to take home 
and try myself. Presenters do not all just 
say, "This is what I did." They say, "This is 
what I did, this is how I did it, and how you 
can do it too." This year, besides much of 
the material above, there was Glen 
Haydon's self-teacher for musical ear 
training, and Rob Chapman's technique for 
an efficient hashing method. 

As good as the papers were, what makes 
FORML great is what happens between the 
sessions. This cannot be explained; it has to 
be experienced. The paradox of the confer- 
ence is that it is exhilarating and exhaust- 
ing. It is something for the entire family. If 
you bring some or all of your family, you 
will see them only late at night and/or early 
in the morning; but you all will be so busy 
that they won't miss you and you won't 
miss them. 

The success of the conference was due, 
as always, to the organizational genius of 

(Continued on page 25.) 
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F83 

PENCIL-AND-PAPER 

ARITHMETIC 

J J. MARTENS - KAUKANA, WISCONSIN 



The Idea for WHATS-IT.BLK came 
while I was reviewing an out-of-print 
book.* In a sense, the program shows that 
Forth can work with decimals, including 
long division, in much the same way we 
used to do it with pencil and paper. Let me 
explain. 

Assuming that you have looked over the 
code and have access to F83, let's go di- 
rectly to MULTIPLY, the first of the three 
high-level words in screen five. Before 
entering anything, it's important to be 
aware of: 

The Game Rules 

1. All numbers must be entered with a 
decimal point somewhere. 

2. Theoretical limits for data input and 
ou^ut are 2,147,483,647 to 
-2,147,483,648. For practical use, the 
limits are ±999,999,999. 

3. When multiplying: the number of digits 
in the multiplicand plus the number of 
digits in the multiplier must not exceed 
nine. 

4. When dividing: the dividend must have 
as many or more places to the right of 
the decimal as does the divisor. 

5. When adding: All numbers must have 
the same number of digits to the right of 
the decimal. If any are short, fill with ze- 
roes. 

The penalty for violating rule #1 is a 
system crash. Other penalties are usually 
less severe. Caution is recommended. 

We are now ready for a trial run. 

Decimal Multiplication 

ok 2 MULTIPLY <enter> 

At the application's prompts (there are 
two), enter 263.42 and 12.4 then follow the 



succeeding prompts with .1468 and .463 
and the result should look like this: 

Enter either number first 
ENTER NUMBER 263.42 * 12.4 = 

3266.408 
ENTER NUMBER .14 68 * .4 63 = 

.0679684 

Note that in the first example, there are 
two digits to the right of the decimal in the 
multiplicand (.42) and one in the multiplier 
(.4). Therefore, according to the rule for 
pencil-and-paper arithmetic, the product 
will have 2+1 = 3 digits to the right of the 
decimal (.408). In the second example, the 
program pads the product with a zero in 
order to get seven digits to the right of the 
decimal. 

Decimal Division 

ok 2 DIVIDE <enter> 

At the application's prompts (again, there 
are two), enter 679.684 and 14.68 then 
follow succeeding prompts with 
7461 .70000 and 56.83 and the result should 
be: 

Enter dividend first 
ENTER NUMBER 679.684 / 14.68 = 
46.3 

ENTER NUMBER 7461.70000 / 
56.83 = 131.298 

In the first example, there are three 
digits to the right of the decimal in the 
dividend (.684) and two is the divisor (.68). 
Since we are now dividing instead of multi- 
plying, according to the rule for pencil-and- 
paper arithmetic, the program will subtract 
instead of add, putting 3-2=1 digit to the 
right of the decimal in the quotient (.3). The 
second example illustrates adding a zero to 
the dividend to satisfy game rule #4, and 



three more to add three extra places to the 
quotient. 

Decimal Addition 
and Subtraction 

When adding and subtracting decimals, 
the pencil-and-paper method puts numbers 
one below the other, with the decimal 
points aligned, and proceeds with implied 
zeroes in the empty places to the right of the 
decimal point The ADDMODE computa- 
tion uses actual zeroes. 

ok ADDMODE <enter> 

At the application's prompt (which reap- 
pears after each entry), enter 1254.6200, 
129.3600, 26375.8000, 4.7530, 18.9654, 
-83.0000, and 0. successively, and the re- 
sult should look like this: 

ADDMODE 

1254.6200 
129.3600 
26375.8000 
4.7530 
18.9654 
-83.0000 
TOTAL 27700.4984 

* Handbook of Business Mathematics, 
Wm. R. Minrath. D. Van Nostrand Co., 
Inc. 1959. 



J J. Martens ran the family business 
for nearly three decades, then spent 
several self-employed years until his 
'practical retirement.' His interest in 
Forth and subsequent purchase of a 
Jupiter Ace computer {and more 
equipment later), -was aroused in 1983 
by Popular Computing, which he calls 
"...a good magazine, how extinct." 
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« 1Z-5-98JJN 

1 WHATS-IT.BLK is really an experieental floating point 

2 that exploits an innocent little F83 word DPL (deci«al point 

3 location). The result is surprising and interesting but it's 

4 not the real NcCoy. 
5 

i The FORTH involved is a LAXEN-PERRY 2.1.8 F83.C0N file 
7 over an NS-DOS 2.11.22 CQMHANO.CON. 
8 

9 Screens 2 and 3, which together constitute a key 

10 coiponent, are a slightly altered version of that by Zafer 

11 Esser «. D. originally appearing in FORTH DIMENSIONS Vol. 7 

12 No. 4 Pg. 5. 

13 

14 J. J. Martens 



\ Double nu«ber keyword: 0/ 11-21-98JM 

: D/HOD (S dl d2--drei dguot) 

2DUP a 8 D< >R 2DUP DABS SHAP DROP 
IF R8 

IF >R >R DNE6ATE R> R> DNEGATE 

THEN SWAP >R /MOD R> SHAP >R 8 Re S>D Dt D- R> S>D 
ELSE m 

IF >R >R DNEGATE R> R> 

THEN DROP ftBS DM/MOD 
THEN R> 

IF >R >R DNEGATE R> R> 

THEN ; 

: D/ (S d! d2 '-d3) D/NOD 2S«ftP 2DR0P ; \ key word 12 



2 
3 
4 
5 
b 
7 
8 
9 
18 
U 
12 
13 
14 
15 



1 4 

\ Nuts and bolts - Load screen U-26-98JM \ Floating point utility 

! D80 (S -I 08= NOT ; \ useful - not in dictionary 
2+1 (S d a--) DUP >R 2« D+ R> 2! : \ ditto 



11-19-98JH 



EN 



(S --) 



ENTER NUMBER 



INPUT (S --d) QUERY BL WORD NUMBER ; \ stack a dbl len no. 

ENTERNBR (S --d) EN INPUT ; 

WASH (S -) -LINE 13 EMIT ; \ clear clutter 

TEST (S d--d f) 2DUP DBO ; 

EENF (S -) ." Enter either nudber first" ; 

EDF (S ~) ." Enter dividend first" ; 

2VARIflBLE TOTAL \ holds ADDMODE total 

T0T8B (S --) 8 8 TOTAL 2! ; TOTBfl 

2 5 THRU \ OK Nill now load the source code. 



VARIABLE FDPL 8 FDPL I \ floating deciial point location 

: FDPL! (S --) DPL 8 FDPL I ; \ store floating deciial pt 

: FDPL+' (S --) DPL 8 FDPL ♦! ; \ add to floating deciial pt 

: FDPL-I (S --) DPL 8 NEGATE FDPL +1 ; \ subtract froB " 

: (F.) (S d -a 1) TUCK DABS \ convert dbl len no to a string 
<l FDPL « 8 ?D0 I LOOP ASCII . HOLD IS ROT SIGN l> ; 



(S d n--) 



F.R (S d n-) 



(F.) TYPE SPACE ; \ output as a signed double 
\ nunber with a trailing space 



)R (F.) R) OVER - SPACES TYPE ; 
\ as a signed double nunber 
\ n spaces right justified 



\ output 



8 \ Double nuftber keyword: Df 



1 
2 
3 
4 
5 
b 
7 
8 
9 

18 
11 
12 
13 
14 
15 



DM* ( dl,u-dprod) 
DUP ROT » ROT ROT UM» ROT + 



Dt (S dl d2 -- dprod) 
2DUP 8 8 D< >R DABS 



N key word 11 

DABS >R >R 2DUF 



11-21-9BJM 



R> DM* R> ROT ROT 



>R >R DM* 32768 DM* 2 DM* R> R> D+ R> IF DNEGATE THEN 

DM/MOD (S dl u-dret dquot) 
SHAP OVER /MOD >R SHAP UM/MOD >R 8 R> R> : 



\ Utilities - HI8H LEVEL HORDS 
: PROCEED (S d f --) 

IF FDPL' 2DUP TOTAL 2+' 24 F.R TRUE 

ELSE 2DR0P FALSE THEN ; 
: .TOTAL iS --) TOTAL 28 TOTAL" 17 F.R ; 



12-5-9BJJH 
\ utility word 



\ utility word 



\ HIGH LEVEL HORDS 

: MULTIPLY (S n--) EENF CR \ Floating point lultiplication 
DO ENTERNBR FDPL' ." ♦ ' INPUT FDPL+! D« ." = " F, CR 
LOOP ; 

: DIVIDE (S n--) EDF CR \ Floating point division 
8 DO ENTERNBR FDPL I / " INPUT FDPL-1 0/ ." = ' F. CR 
LOOP ; 

! ADDMODE (S --) \ Cilculator styli addition 
BEGIN CR ENTERNBR HASH TEST PROCEED HHILE 
REPEAT .TOTAL T0T88 CR : 



Printed with File PR6SCR.54 
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^^Jews from the GEnie Forth 
RoundTable — Last issue we recapped 
guest conferences with Robert Smith, 
"Floored Division and Floating Point"; 
Phil Koopman, "Stack Machines"; Charles 
Curley, "A Minimalist View of Forth"; and 
John D. Hall, 'The Business of HG." 

In this issue, we will continue our romp 
through guest conference memory lane by 
checking back on visits with Elizabeth 
Rather, "X3J14 Chair Discusses the ANS 
Forth Effort"; Steve Sarns and Steve 
Wheeler, "Vesta Technologies and Em- 
bedded Forth"; Dr. John Wavrik, "Teach- 
ing Forth"; Jim Tittsler and Allan Pratt of 
Atari Product Development, "Hardware 
Prototyping with Forth"; and Tom Almy 
from Tektronix, Inc.'s engineering, "User 
Interface for non-Forth Users." 

Elizabeth D. Rather (January 1990) 
President of FORTH, Inc. 
Chair of ANS Forth Technical 
Committee 

In the fall of 1 986, about a dozen people 
met at FORTH, Inc. to start an effort to 
produce an ANSI standard for Forth. They 
included three major vendors (competi- 
tors!), users from large companies (IBM, 
MCI, etc.), and individual consultants/ 
experts (including Chuck Moore). All of us 
agreed that an ANSI standard would im- 
prove acceptance of the language, improve 
our ability to hire programmers or get jobs 
(depending on which side of the fence 
you're on!), and make it easier to move 
programs from one Forth to another. 

The ANSI process operates under very 
explicit, detailed rules designed to ensure 
broad participation in the development and 
review of any standard. Anyone can be a 
member of the TC who has the time and 
money (mostly for travel — the fees are 
minor in comparison), and you don't need 
to be a member to submit proposals or 



review our work. When we think we're 
done, our draft standard will be published 
for a four-month pubUc review period. 
We're required to respond in writing to all 
comments, and if we make changes as a 
result there will be an additional two-month 
review. This cycle will repeat as many 
times as necessary. At the end, our govern- 
ing body will review both our standard and 
the process. Not only must the standard be 
clear (etc.), but the process must be proven 
to be open and fair. 

We welcome proposals from anyone. 
The most useful are specific proposals to 
make explicit changes to BASIS. Less- 
specific comments are also welcome and 
will be taken under advisement, but are 
harder to act on and thus less effective. 

A standard should not try to innovate, 
improve, or extend a technology. Insofar as 
possible, we try to identify "common prac- 
tice" and articulate it Some compromise is 
inevitable, particularly when there are con- 
flicts in common practice. 

Steve Sarns, Steve Wheeler (February 
1990) 

Vesta Technology, Inc. 

Sams: Five years ago, I founded Vesta 
in my living room. I was the only employee. 
I built the prototype of the product we now 
vend as the SBC88. The unit used Forth and 
had a Forth in ROM. I typed it in from the 
FIG listings, but made it ROM-able, and at 
the same time was debugging the wire- 
wrap board . 

Radio Electronics published an article 
in March 1984 that featured the board con- 
trolling "smart homes." That three-month 
series basically launched Vesta Technol- 
ogy. In fact, we still get product inquiries 
based on those articles! 

Nowadays, about half our business is 
custom engineering, and we sell five off- 



the-shelf single-board computers with a 
variety of ROM language support. Some 
have C, some have BASIC, but all have 
Forth, since that is our in-house develop- 
ment language for custom projects. 

Wheeler: We have applications run- 
ning all the way from the SBC88 monitor- 
ing a couple of digital input bits, to net- 
worked boards monitoring several analog 
and digital inputs in real time while com- 
municating with the user via LCD and 
keypad on one board, with all boards using 
a multi-drop RS485 network to talk to each 
other. The typical application anymore 
seems to be one board with a few analog 
inputs, a number of digital inputs and out- 
puts, an LCD and keypad for user interface, 
and talking RS-232 to some kind of log- 
ging station. 

Dr. John Wavrik (March 1990) 
University of California - San Diego 
Mathematics Department 

Dr. Wavrik's topic, "Teaching Forth," 
quickly centered on how an effective stan- 
dard can improve the ability to teach Forth 
and make the language more credible. 
Whether you agree or disagree with some 
of its points and conclusions, this tran- 
script should be required reading for any- 
one involved in teaching or standardizing 
Forth. — Gary 

My assigned topic is "Teaching Forth," 
and I 'd like to talk about why Forth is a very 
good language for work in mathematics, 
and discuss how to teach it Having a lan- 
guage taught is essential for its spread. It 
also has desirable side effects like estab- 
lishing notational conventions and writing 
styles (so that users of the language can 
understand each others' programs). 

Forth is a very good language to teach. 
It can be understood in terms of how it 
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works — this is a powerful handle for learn- 
ing anything. The only people who really 
have problems with it are those who think 
that a language must be defined by a BNF. 
Forth is very different from other lan- 
guages — but not hard to learn if ap- 
proached on its own terms. 

Forth is also a good language to use in 
teaching since so much can be made visible 
which other languages hide. It can be used 
to help students gain insight into how 
computers represent data structures and 
implement algorithms. It can even provide 
an understanding of how conventional 
languages work. 

I would be remiss, however, if I failed to 
mention that having Forth taught depends a 
great deal on whether the Forth community 
makes it teachable. A language cannot be 
taught if it is made unteachable. 

Here is how to make a language un- 
teachable: 

1. Have no university-level texts. 

2. Make it impossible for anyone to write 
a university-level text (see 3 & 4). 

3. Make the language unstable, e.g.: 

a. change the language's standards 
every few years, and 

b. split the language into multiple dia- 
lects. 

4. Make the language non-portable. 

5. Have no pool of (portable) basic appU- 
cation packages. 

6. Make it impossible for such a pool to be 
produced (see 3 & 4). 

7. Fail to provide support to education. 

Allan Pratt, Jim TIttsler (April 1990) 
Atari Product Design 

Tittsler: Here at Atari, we have been 
using Forth to "bring-up" and debug new 
computer and peripheral hardware for 
many years. It has a few significant advan- 
tages over other methodologies: 

• The interactive, incremental nature of 
Forth allows the user to explore new hard- 
ware quickly and at the same time build on 
already-known components. 

• Basic Forth literacy can be achieved 
quickly by hardware engineers whose goal 
is hardware verification, not software de- 
velopment. 

• The amount of hardware that has to be 
correctly functioning to support a "signifi- 
cant" development-and-test environment 
is quite limited. 



I consider Forth a reasonable tool for 
a large class of problems — ^but it is just one 
tool of many I may choose to use. 

Pratt: 1 have a little less lo say — ^I take 
over when Jim has brought up the hard- 
ware. I don't use Forth any more, but I 
guess I'm (in)famous for CFORTH, a 
small, portable Forth interpreter with the 
kernel written in C, not assembly. If you're 
using CFORTH, you should probably stop. 
Get a real Forth for your machine from the 
nice folks at FIG or someplace (like this 
library), because CFORTH is so weird it'll 
warp you for life. On the other hand, it can 
help you grok the very low-level stuff in a 
Forth interpreter if you understand C and 
not assembly. 

Tom Almy 

Electrical Engineer, Tektronix, Inc. 

I have a deep concern with keeping 
Forth so that the "average" person (one 
who is not computer literate) can make use 
of the PRIDE CAD program without going 
nuts or having to get hold of me for each 
little problem. I also have taught Forth 
classes to over 100 people, and have seen 
where they have difficulties. Major 
changes in my system, some of which are 
being adopted: 

• No screen files. 

• Better number formats. 

• "To" variables. 

• All words, even control structures, work 
in the interpret state so that one doesn't 
need to be concerned about being in a 
colon definition. 

• Graceful aborts on errors. 

• Easy access to host OS. 

The net result is that the users (mainly 
scientists with little background with pro- 
gramming) are able to write simple Forth 
programs and issue commands without 
problems. 

The result is that these users have no 
fear of using Forth. Managers, of course, 
still do but they are happy with the results. 
Namely, the designers are able to create 
masks for ICs, hybrids — whatever their 
job — in short time, using a program that 
runs on a relatively inexpensive system, 
and with little training. 



* ill ^ 

I have to believe that the insights offered 
in these guest conferences are the "stuff 
that can make a significant difference in the 
way Forth is perceived and used. I will grant 
that interactive conferences can be trying, 
because they lack the intimacy one-on-one 
conversations provide. On the other hand, 
when was the last opportunity you had to 
talk to a Steve Sams about an embedded 
Forth application, or to gain an instructor's 
keen perspective from Mahlon Kelly or 
John Wavrik? I suspect your only such 
opportunities are via the GEnie Forth 
RoimdTable guest conferences, and if you 
failed to participate in these your chance is 
probably forever lost. Won't you join us in 
a forthcoming one and discover for yourself 
what you have missed? 

* * * 

Upcoming guests on GEnie's Forth 
RoundTable: 

March 21 Roy Martens and Glen Ha- 
ydon, "The Status of MVP in 
Today's Market" 

April 18 Charles Johnsen, "Mutable 
Instruction Set Computers" 

May 16 Bradford Rodriguez, "ANSI: 
Ask Not for Standards Im- 
provement" 

June 20 Jan Shepherd, "The Forth 
Interest Group" 



(Continued from page 20.) 

Bob Reiung, his hard work, and the hard 
work of Mike Perry and Jan Shepherd. 

Canada was represented by four atten- 
dees and a guest, Australia by Rodney 
Young, and Russia by Igor Agamirzian. 

In the final hour of the conference, 
Martin Tracy, Wil Baden, Guy Grotke, 
Mitch Bradley, and Chuck Moore gave 
their impromptu thoughts about the future 
of Forth. They differed in many things but 
they all believe that Forth has a mature, 
strong, and immortal life ahead. 

— Neil Bawd 
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DENNIS RUFFER - DJtUFFER ON GENIE 



espite some of the difficulties being 
experienced within ForthNet, the GEnie 
leg is alive and expanding. In fact, GEnie is 
running at its lowest cost in history. Since 
the sign- up costs and user fees have 
changed recently, I will explain below what 
the latest information is. If you are not 
interested in this infmnation, please disre- 
gard it. For those of you who are not totally 
set against capitalism, I've got some good 
news for you. 

Whatever method you use to sign up, 
drop by and say hello in the Forth 
RoundTable (type FORTH at any main 
menu). My GE Mail address is 
D.RUFFER, drop me a note if you have any 
problems. 

U.S.A. 

To sign up, have your modem call 800- 
638-8369 using 300/1200/2400 baud, 
seven bits, no parity, and half duplex (i.e., 
local echo). After you connect, type HHH 
pausing slightly between the H's. GEnie 
will respond with a U# prompt If it does 
not, hit return and it will. At the U# prompt, 
type XJM11849,GENIE and hit return. 
You will be taken into the sign-up module 
that will ask for your credit information 
(Visa, MasterCard, Discover, American 
Express, or direct checking withdrawal) 
and will tell you the closest access number. 
Your account should then be validated for 
your use with 24 hours. If you have any 
problems, call 800-638-%36. 

Sign-up costs 
Sign-up $ 0.00 
Manual 12.95 optional 
EQStag£ 2.00ontional 
Net Cost $ 0.00 or $14.95 

Plus, GEnie offers a money-back guaran- 
tee! We're inviting users to try GEnie for a 
month. After the first month, if they're not 



satisfied, we will refund the monthly sub- 
scription fee. 

Effective 10/1/90, we implemented a 
mandatory monthly subscription fee of 
$4.95 per month. After extensive research, 
users (both ours and our competition's) 
have indicated that they would prefer un- 
limited access to select services for a set 
monthly fee. The most broadly accepted 
price point is $4.95 per month. Thus, the 
introduction of GEnie's unlimited access 
services — during non-prime (local time) 
hours — ^which include over 100 products 
and services. 

GEnie Services which do not incur addi- 
tional charges: 

News, Weather, Sports (top stories). 
Travel reservation information (including 
EasySabre), Closing Stock Quotations 
(U.S. markets only). Electronic encyclope- 
dia, GE Mail (message send-and-receive 
only). Leisure & Professional BB 's (just the 
BB, no RTC or SL's), Classic GEnie 
Games (single player games, not MP), 
Shopping Services, Free subscription to 
LiveWire (ten times per year, up from six 
times) 

Canada 

(All access numbers listed are tri-speed.) 

Sign-up only: 800-387-8330 

Vancouver 604-253-8429 

Toronto 416-858-1230 

Calgary 403-232-6121 

Montreal 514-333-1117 

The sign-up procedure and Client Serv- 
ices telephone number is the same as for the 
U.S.A. (See above.) 

Japan 

For information about signing up in 
Japan, use the following number to reach 
their Qient Services or write them at the 



following address: 

Telephone: 03-452-9800 

NEC VAN Maiiieting Division 

Mita Kokusai 

BIL. 5F 1-4-28 

Mita, Minato-Ku Tdkyo 

Japan 108 

Att'n: Yutaka Fujii 

The current sign-up user number and 
password in Japan is XJM11719,GENIE 
and there is an SOOO yen sign-up fee. 

GEnie via 

Public Data Networks 

GEnie can be accessed from any of the 
following countries by using the state- 
owned Public Data Networks: 

Australia, Belgium, Denmark, Finland, 
France, Hong Kong, Ireland, Italy, Mex- 
ico, Netherlands, New Zealand, Norway, 
Philippines, Portugal, Singapore, South 
Africa, South Korea, Spain, Sweden, Tai- 
wan, United Kingdom. 

In order to access GEnie through the 
above-listed countries, one must follow the 
procedures listed below (there is no sign- 
up fee): 

1. Connect to the local PDN (public data 
network) by joining the local PDN serv- 
ice. 

2. Enter the following information all on 
one line: 

3136 (GE Information Services' 
DNIC) 9 (indicates PAD service) 00 
(indicates asynchronous service) 

Thus, enter: 

3136900 

or: 

31369000000000 
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if the PDN requires the full X.121 ad- 
dress. Contact the PTT representative if 
there are any questions as to the correct 
addressing structure. GE Information 
Services will distinguish the access 
speed (300 bps or 1200 bps) automati- 
cally. 

3. Follow the MARK*N[ET Service sign- 
on prompt U#= with the traditional user 
number and password: 
XJM11997^DN 

4. After the signup, a startup package will 
be mailed. This includes a contract, 
which we need signed and returned 
before the account can be validated. If 
you choose, you can FAX the signed 
contract. (The fax's number appears on 
the contract.) 



Europe 

As with the PDN countries, there is no sign- 
up fee for GEnie Europe. A manual is not 
included, but may be ordered for $28.95 
(which includes shipping and handling). 
For information and local sign-up proce- 
dures, call or write: 



Hourly Connect Charges 



GE Information Service GmbH 

Robert-Bosch Strasse 6 

5030 Huerth-Efferen, Germany 

49(2233)6091 

Telex: 8 882 420 





Prime 


Non-Prime 


U.S.A. 


$18 


$6 


Canada 


C$25 


C$8 


Japan 


5400 


5400 (yen) 


PDN countries* 


$20 


$8 


Europe 


$27 


$18 


♦Prices are in addition to the PDN charges. Prime time is in effect from 8 a.m. to 6 p.m. 


Eastern time (U.S.A.) on weekdays (i.e., Monday through Friday). Non-prime time is 


all other hours, including GEnie holidays. 
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Total control 
vAMMIfOM' 

For Programming Professionals: 
an expanding family of compatible, high- 
performance, compilers for microcomputers 



For Development: 

Interactive Fbrth-83 Interpreter/Compilers 
for MS-DOS, OS/2, and the 80386 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 500 page manual written in plain English 

• Support for graphics.floating point, native code generation 



R>r Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from Intermediate states, 
and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8088, 68000, 6502, 8051, 8096, 
1802, 6303, 6809, 68HC11, 34010, V25, FITX-2000 

• No license fee or royalty for compiled applications 



m/ 



Laboratory Microsystems Incorporated 
Post Office Box 10430, Marina del Rey, CA 90295 
Phone Credit Card Orders to: (213) 306-7412 
FAX: (213) 301-0761 
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Forth Interest Group 

The Forth Interest Group serves both 
expert and novice members with its net- 
work of chapters, Forth Dimensions, and 
conferences that regularly attract partici- 
pants from around the world. For member- 
ship information, or to reserve advertising 
space, contact the administrative offices: 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 

408-277-0668 

Board of Directors 

Robert Reiling, President (ret. director) 

Dennis Ruffer, Vice-President 

John D. Hall, Treasurer 

Wil Baden 

Jack Brown 

Mike Elola 

Robert L. Smith 

Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kiltaidge 
John James 

In Recognition 

Recognition is offered annually to a 
person who has made an outstanding con- 
tribution in support of Forth and the Forth 
Interest Group. The individual is nomi- 
nated and selected by previous recipients of 
the "FIGGY." Each receives an engraved 
award, and is named on a plaque in the ad- 
ministrative offices. 

1979 WiUiam Ragsdale 

1980 Kim Harris 

1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

1989 Jan Shepherd 

1990 Gary Smith 



ANS Forth 

The following members of the ANS 
X3J14Forth Standard Committee are avail- 
able to personally carry your proposals and 
concerns to the committee. Please feel free 
to call or write to them directly: 

Gary Betts 
Unisyn 

301 Main, penthouse #2 
Longmont. CO 80501 
303-924-9193 

Mike Nemeth 
CSC 

10025 Locust Sl 
Glenndale, MD 20769 
301-286-8313 

Andrew Kobziar 

NCR Medical Systems Group 

950 Danby Rd. 

Ithaca, NY 14850 

607-273-5310 

Elizabeth D. Rather 
FORTH, Inc. 

Ill N. Sepulveda Blvd., suite 300 
Manhattan Beach, CA 90266 
213-372-8493 

Charles Keane 
Performance Packages, Inc. 
515 Fourth Avenue 
Watervleit, NY 12189-3703 
518-274-4774 

George Shaw 

Shaw Laboratories 

P.O. Box 3471 

Hayward. CA 94540-3471 

415-276-5953 

David C. Petty 

Digitel 

125 Cambridge Park Dr. 
Cambridge, MA 02140-231 1 

Forth Instruction 

Los Angeles — Introductory and inter- 
mediate three-day intensive courses in 
Forth programming are offered monthly by 
Laboratory Microsystems. These hands-on 
courses are designed for engineers and 



programmers who need to become profi- 
cient in Forth in the least amount of time. 
Telephone 213-306-7412. 

On-Line Resources 

To communicate with these systems, set 
your modem and communication software 
to 300/1200/2400 baud with eight bits, no 
parity, and one stop bit, unless noted other- 
wise. GEnie requires local echo. 

GEnie 

For information, call 800-638-9636 

• Forth RoundTable 
(ForthNet link*) 

Call GEnie local node, then type M710 
or FORTH 

SysOps: Dennis Ruffer (DJIUFFER), 
Scott Squires (S.W.SQUIRES), Le- 
onard Morgenstern (NMORGEN- 
STERN), Gary Smith (GARY-S) 

• MACH2 RoundTable 
TypeM450orMACH2 
Palo Alto Shilling Company 
SysOp: Waymen Askey (D.MILEY) 

BIX (ByteNet) 

For information, call 800-227-2983 

• Forth Conference 

Access BIX via TymeNet, then type j 
forth 

Type FORTH at the : prompt 
SysOp: Phil Wasson (PWASSON) 

• LMI Conference 

Type LMI at the : prompt 
LaboratOTy MicroSystems products 
Host: Ray Duncan (RDUNCAN) 

CompuServe 

For information, caU 800-848-8990 

• Creative Solutions Conference 
Type !Go FORTH 

SysOps: Don Colbum, Zach Zachariah, 
Ward McFarland, Jon Bryan, Greg 
Guerin, John Baxter, John Jeppson 

• Computer Language Magazine Confer- 
ence 

Type !Go CLM 

SysOps: Jim Kyle, Jeff Brenton, Chip 
Rabinowitz, Regina Starr Ridley 

Unix BBS's with forth.conf (ForthNet 
links* and reachable via StarLink node 
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9533 on TymNet and PC-Pursuit node 
casfa on TeleNet.) 

• WELL Forth conference 

Access WELL via CompuserveNet 
or 415-332-6106 
Fairwitness: Jack Woehr (jax) 

• Wetware Forth conference 
415-753-5265 

Fairwitness: Gary Smith (gars) 

PC Board BBS's devoted to Forth 
(ForthNet links*) 

• British Columbia Forth Board 
604-434-5886 

SysOp: Jack Brown 

• Grapevine 
501-753-8121 to register 
501-753-6389 
StarLink node 9858 
SysOp: Jim Wenzel 

• Real-Time Control Forth Board 
303-278-0364 

StarLink node 2584 on TymNet 
PC-Pursuit node coden on TeleNet 
SysOp: Jack Woehr 

Other Forth-specific BBS's 

• LaboratOTy Microsystems, Inc. 
213-306-3530 

StarLink node 9184 on TymNet 
PC-Pursuit node calan on TeleNet 
SysOp: Ray Duncan 

• Rnowledge-Based Systems 
Supports Fifth 
409-696-7055 

• Druma Forth Board 
512-323-2402 

StarLink node 1306 on TymNet 
SysOps: S . Suresh, James Martin, Anne 
Moore 

Non-Forth-specific BBS's with extensive 
Forth libraries 

• DataBit 
Alexandria, VA 
703-719-9648 
PCPursuit node dcwas 
StarLink node 2262 
SysOp=Ken Flower 

• The Cave 
San Jose, CA 
408-259-8098 
PCPursuit node casjo 
StarLink node 6450 
SysOp=Roger Lee 

International Forth BBS's 

• Melbourne FIG Chapter 
(03) 809-1787 in AustraUa 
61-3-809-1787 international 



SysOp: Lance Collins 

• Forth BBS JEDI 
Paris, France 
33 3643 15 15 

7 data bits, 1 stop, even parity 

• MaxBBS (ForthNet link*) 
United Kingdom 

0905 754157 
SysOp: Jon Brooks 

• Sky Port (ForthNet link*) 
United Kingdom 
44-1-294-1006 
SysOp: Andy Brimson 

• SweHG 

Per Aim Sweden 
46-8-71-35751 

• NEXUS Servicios de Informacion, 
S.L. 

Travesera de Dalt, 104-106, Entlo. 
4-5 

08024 Barcelona, Spain 
+ 34 3 2103355 (voice) 
+ 34 3 2147262 (modem) 
SysOps: Jesus Consuegra, Juanma 
Barranquero 

barran@nexus.nsi.es (preferted) 

barran@nsi.es 

barran (on BIX) 



This Ust was accurate as of February 1991. 
If you know another on-line Forth re- 
source, please let me know so it can be 
included in this list. I can be reached in the 
following ways: 

Gary Smith 

P. O. Drawer 7680 

Litde Rock, Arkansas 72217 

Telephone: 501-227-7817 

Fax (group 3): 501-228-9374 

GEnie (co-SysOp, Forth RT and Unix 

RT): GARY-S 

Usenet domain.: 

uunetiddil !lrark!glsric!gars 



* ForthNet is a virtual Forth network 
that links designated message bases 
in an attempt to provide greater in- 
formation distribution to the Forth 
users served. It is provided courtesy 
of the SysOps of its various links. 



MAKE YOUR SMALL COMPUTEH 

THINK BIG 

(M'vo been doing it (inca 1977 tor IBM PC. XT, AT, P^, 
and TRS-80 models 1. 3. 4 & 4P ) 

FOR THE OFFICE — S.piplilrr,4tpna your won 
«#) our outstanding word processing, databaas handlers, 
and ganaial ledger software They are easy to use. pomrful, 
witti execulNe-look print-outs, reasonabte iHe lic«nss goMs 
and comfortable, reliable support Ralph K Andrist, author/ 
hikUnan. a-it! FORTMWRITE '<ls ini- xnjr^r^ QR 
manuscnpl, not (he compuMr' Stewart Johnson, Boston 
Mailing Co , says "Wb use OATAHANDLER-PLUS becauae it's 
the best m've seen " 

MMSFORTHSyslaniOlsk Tj-nSlTfiri 
■Millar «4dng — Integrate with System Disk only wnal 
you need: 

FORTtlWRITE - wardprocessor $M 95 

DAXAHANDLER-Datatiace VAX 
DATAHANDLER-PIUS - Database $9( 95 

FORTHCOM - for Communications t4(LK 
GENBML LEDGER - Accounting System S2SD 00 

MILLER MICROCOMPUTER MNVIceS 

B1 Lake ShofB Road. Natick MA OITSO 
(508/65^8136, 9 am - 8 pm) 



FOR PROGRAMMERS — S na Lraavn. rA-:-tH 
«id SMALkSlwilh our "MMiBMit* MMSR}RTM System and 
applicfbona modutal. plus Hie famous MMSFORTIH continu- 
ing awpoR Most madtitgp include stwrce code Fenen 
UKMyi«', s(Mn«4nphar, aavr "ft^ « l-<e langiwse 
niieredoniputars wen Invented to run " 

SOFTWUKMANUfMrrURaA'-eiriclenl soft- 
ware tools save tune and nwngy MMSFORTH's llewbility, 
«aniMlstnastand speed haw naulled ai tMtsr preducts m 
less wiie (or a wide nnge of soKwM dBWkyel s including 
AiMoft-Tate, ExcaNbur lft:hnologiea. Lmdtaergh Systems, 
Ujchfieed Miaalle aM Spada Onrlatan. awl NASA-GoddBd. 

MM8F0RTH VU Staleiii Haii Vr 1171 % 

t^eed* only 2(K RMK compsml to aOK tar BASIC C, 
PaecMand others Convert your computer into a Forth virtual 
machine with soptistipatedTorth editor and related toois This 
CWi MuH m 4 tn 10 npea tHVMW pmluttrfliy 

ModiAr pildng — liieymTr with System Disk only what 
youneed 

EXffiRT.7- Expert SMMmOevelopmsnl $69.95 
FailTNC0M-a|wbl9atalBtr*islar $49 9$ 

UTILITIES rirvtHC a0r'<iup|iGi'ar4.i>htrl4eiliim 

aixf a itfte 111018/ 

THIRTY-DAY FREE OFFER - Free MMSFORTH 
GAMtSDISKJi - ■ I purchase of MMSFORTH 
■S.Mpir CH'rPlOOUOTL HELPER, OTHELLO, BREAK- 



ralt rn-fiiT hrnrtiufn. fsrfinlr^ fnfln arjiilrtiD tfata'ti 
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Sponsored by the Silicon Valley and North Bay FIG Chapters 

NORTHERN CALIFORNIA 

FORTH DAY 

C.H. TING - SAN MATEO, CALIFORNIA 



November 17, 1990 
10:00 a.m. -5:00 p.m. 
Presentations 

ANSI Forth Standard Review 

John Rible and ANSI X3J14 members 

Basis 14 will be released shortiy. It is 
expected that the final draft will be com- 
pleted in the January meeting next year. 
John specifically clarified the concepts of 
standard systems and standard programs in 
the context of ANS Forth Standard. 

Catch-Throw Error Handling 
Mitch Bradley 

200,000 Forth systems have been 
shipped by Sun Microsystems, in the form 
of Forth bootROMs. All Sun Sparc stations 
have Forth in them, and all S-Bus peripher- 
als are required to have Forth on board for 
booting their drivers. Mitch claimed that S- 
Bus will be the bus of choice for computer- 
ized hardware. 

CATCH-THROW requires only ten lines 
of code for two Forth words. It is postfix 
and requires no immediate actions. Fully 
nestable, no hidden run-time code, imple- 
mentable in high level, and no metacompi- 
lation implications. Usage and code ex- 
amples are also presented. 

S(rfety Net Error Handling 
Leonard Morgenstem 

This is another way to provide error 
handling in Forth systems. You use SET- 
NET to initialize a net, which is a six-byte 
array. FALL allows you to jump to a net 
when an error condition is asserted. It is 
nestable if additional words like PUSH- 
NET and POP -NET are provided. It is also 
usable as coroutine, about which people 
disagreed on the definition and functional- 
ity. 

Critique ofeForth 
Mike Elola 



Mike reviewed the design of eForth. Its 
main feature is the separation of the user 
interface from the system functions. The 
user interface is left out of eForth, because 
it can be handled much better by the host 
computer. Only the system functions are 
needed in eForth residing in a target CPU. 
It is something CPU board manufacturers 
might be interested in. If it is packaged and 
promoted properly, it may become a sal- 
able product 

80196 Target Forth 
Mike Mayo 

Mike was asked to repeat his presenta- 
tion from the October meeting. He pre- 
sented many interesting diagrams showing 
the functional parts in the 801% Target 
Compiler, relating to code development, 
target code testing, and debugging tools. 
He keeps a ten-byte record for every byte 
compiled into the target, so that the host can 
support single-instruction-stepping and 
source-level debugging in real time. 

YAOOP—Yet Another Object Oriented 
Program 

Leonard Morgenstem 
Only three Forth words are needed: 

CLASS, METHOD, and ATTRIBUTE. 

CLAS S defines an object with a number of 
execution methods, which can be selected 
at run time. It is very simple and highly 
portable. The only drawback is that it does 
not support full inheritance. The full paper 
was presented at the Asilomar FORML 
Conference. 

Transputer Forth 
BobBarr 

The Forth for transputer is based on an 
F83-68000 implementation. A special 
board was designed to support a solid-state 
disk emulator at Mass Memory Technol- 
ogy. It takes advantages of the 4K internal 
memory, 32-bit data and address space, 20 



MHz clock rate, and the four high-speed 
serial communication lines. 

SCIForthfor RTX and SC32 
Gewge Nicol 

GeOTge reviewed the product line of Sili- 
con Composers. SC/Forth has been imple- 
mented across all products which run dif- 
ferent CPUs, like the NC4000, RTX2000, 
and SC32. The portability of a single lan- 
guage model greatly eased product intro- 
ductions and software development. The 
newest product is a VME single-board 
computer based on the SC32 processor. 

Mechanizing Power/Mod Computation 
Alfiied Tang 

Alfred described a unique method to 
reduce the computational load of raising a 
big number to a very high power, and taking 
the modulus of the product. This method 
can be very effective in building hardware 
for the public key encryption-description 
system based on the RSA algorithm. The 
math is fully disclosed. 

Programming Contest 

Contestants were given a text file con- 
taining Psalm 119, and were asked to count 
the number of words, the number of unique 
words, and to produce an alphabeticsdly 
sorted list of all the unique words. The file 
is about 16K. There are about 1500 words 
and 500 unique words in it. The Most 
Honorable Cowboy Chuck Moore presided 
as judge. 

Six braves entered the contest Mitch 
Bradley brought a formidable Sparc 1 sta- 
tion fully loaded. He used Unix shells and 
pipes to finish the counting and sorting in 
eight minutes, but was asked to go back and 
write a program to do the job. Andrew 
McKewen completed the counting and 
sorting in 42 minutes, and Mitch completed 
his in 54 minutes. Andrew was awarded a 
( Continued on page 41.) 



Forth Dimensions 



30 



Volume XII, Number 6 



METACOMPILATION 

MADE EASY 



FRANK SERGEANT - SAN MARCOS, TEXAS 



Me 



.etacompilation prowls the narrow 
alleys of Forth, lurking in the shadows, 
scaring the children. Does the monster 
really exist or is it just a legend? (Eerie 
music.) It's nearly midnight, wanna go out 
and look for it, huh? Get the flashlight, a 
fifth of Scotch, a 12 gauge shotgun and 
come with me. Don' tbe afraid. Here, let me 
hold the shotgun. No, no, after you. 

The flashlight is all we need. Metacom- 
pilers can be monsters, but shining a little 
lighton them should dispel the terror. We'll 
t^e a look at them in general and also 
discuss a specific, simple version from 
Pygmy Fortii. But first. . . 



cmFORTWs novel 
and elegant method 
has just two vocabu- 
laries. 



What Is A Compiler? 

A compiler is a program that lays down 
code and data that matches your source 
code. It is usually thought of as a translator 
that converts source code into machine 
code. It might be more helpful, though, to 
think of it as something that steps through 
memory, byte by byte, filling in whatever 
should be put there. 

Most languages have a compiler. Forth 
\asrmny compilers. 

The most basic compilers in Forth are 
C, ("C-comma") and , ("comma"). They 
take numbers from the stack and lay them 
down at the next free byte or word in the 
dictionary (and then increment the diction- 
ary pointer). : ("colon") is the most com- 
monly used compiler in Forth. It uses C, 
and , to lay down bytes and words into the 
dictionary as it compiles new definitions. 



16 CONSTANT TMRX-FILES ( allow room in tgt for 15 files,) 
( but MUST be a power of 2) 



2 1 - CONSTANT TNB 
VARIABLE RAM 
VARIABLE H' $8000 



( set number of disk buffers) 

( next system variable will go) 

( relocation amount) 

( 1st cell is tgt's DP &) 

( 2nd cell is tgt's offset) 



$8000 $2000 FILL 
$8000 H' ! 

3 13 THRU 
17 80 THRU 
PRUNE 
{ 



( initialize target space to zeroes) 
( start target dictionary at $8000) 
( load the metacoirpiler extensions) 
( load the kernel) 
( relink the target dictionary) 
( switch to target dictionary) 
$8100 HERE SAVEM KERNEL.COM 

} ( switch back to host dictionary) 

Figure One. Load screen for metacompiling a new kernel. 



These variables hold the address of the corresponding target run-time routines. These are 
needed by the metacompiler so it can compile the proper code. As each run-time routine is 
defined in the target, its address is stored into its corresponding variable. 



VARIABLE TVAR 
VARIABLE TCOL 
VARIABLE TOBR 
VARIABLE TFOR 
VARIABLE TARR 
VARIABLE TDOT 

Figure Two. 



( variable) 

( docol) 

( zero branch) 

( for) 

( array) 

( dot") 



VARIABLE TLIT ( literal) 

VARIABLE TBRA ( branch) 

VARIABLE TEXIT ( exit) 

VARIABLE TNEXT ( next) 

VARIABLE TABORT ( abort") 
VARIABLE TNULL 



The curly braces switch back and forth between the host and target spaces, by swapping the 
dictionary pwinters and relocation factors. This allows the regular comma, C-comma, and 
HERE to access both the host and target dictionaries. 

: { ( -) dA @ HERE H' 2@ H ! dA ! H' 2! ; 

:)(-){; 
Figure Three. 
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TC3REATE creates a header for a word in the target dictionary. It lays down a two-byte link 
field that points to the previous word's link field. Then it lays down a three-byte jump to the 
run-time routine for VARIABLE. This new word's link field address is stored in the vocabulary 
head (CCKTEXT HASH). 

Definining words other than VARIABLE will im-compile those three bytes (with -3 ALLOT 
etc.) and lay down a jump to their own run-time routine. 

HEX 

: TCREATE ( -) 

( 2byte link, coianted name, & 3 byte junp to targets var) 
( Meta's TVAR holds var's addr as soon as we know it) 
HERE , 20 WORD ( cur.lfa cur.nfa ) 

CONTEXT 6 HASH ( Ifa nfa vocab ) 
2DUP ( cur.lfa cur.nfa vocab cur.nfa vocab ) 
@ ( cur.lfa cur.nfa vocab cur.nfa prev.lfa) 
SWAP ( cur.lfa cur.nfa vocab prev.lfa cur.nfa) 
2 - ( back up) ( cur.lfa cur.nfa vocab prev.lfa cur.lfa) 
! ( cur.lfa cur.nfa vocab) 
SWAP ( cur.lfa vocab cur.nfa) 
C@ ( cur.lfa vocab len) 
1+ ALLOT ( conma in the entire neune field) 
! ( make vocab point to this new word's link field ) 
TVAR @ LJMP, ( lay down 3byte jun^ to dovar) 

Figure Four. 



forget ( -) Smudges the name field of the most recently defined (target) word, making it 
temporarily un-fmdable in the dictionary. This is rarely needed. 

CONSTANT ( n -) Defines a constant in the target dictionary. Its value cannot be used 
directly during metacompilation. 



VARIABLE ( -) 



Defines a variable in the target dictionary. 



ARRAY ( a -) ( n -) ( n is a word, not byte, index) 
Defines an array of 16-bit mmibers in the target dictionary. 

DEFER ( -) Defines a word in the target dictionary that can be changed to execute 
different words by the word IS. 

IS ( pfa -) Stores the address a into the following DEFER'd word in the target dictionary. 
HEX 

: forget ( -) CONTEXT 6 HASH 6 2 + DUP ce 20 XOR SWAP C! ; 

: CONSTANT ( n -) TCREATE -3 ALLOT 
BX PUSH, #, BX MOV, NXT, ; ( use "in-line" constants ) 

: VARIABI£ ( -) 

( RAM S CONSTANT 2 RAM +! for ROMing) 
TCREATE , ; 

: ARRAY ( a -) ( n -) ( n is a word, not byte, index) 
TCREATE -3 ALLOT TARR 6 LJMP, , ; 

: DEFER ( )(...) TCREATE -3 ALLOT #, AX MOV, AX JMP, ; 

: IS ( pfa -) dA @ - • 1+ ! ; 

Figure Five. 



This is usually done in a number of steps, 
with the help of various compiling words, 
each of which does its part For example, 
IF starts an if ... then structure by 
laying down a conditional branch. THEN 
completes the branch, variable and 
CONSTANT are other familiar Forth com- 
pilers. Ultimately, they all rely upon , and 
C , to get those bytes laid down. 

How Forth Is DifTerent 

Most other languages completely sepa- 
rate the compiler itself from the result of 
the compiler. You take source code, feed it 
into the compiler, and get object code. The 
object code is later executed independently 
of the compiler. Forth is different in that, 
usually, its compilers extend the current 
Forth system rather than creating an inde- 
pendent system. Your new definitions are 
added to the definitions that are ab-eady 
present. 

What Is Metacompilation? 

Simply put, metacompilation is the 
process of making Forth do what other 
languages do all the time: generate an inde- 
pendent system. The fancy name probably 
contributes a lot to the confusion. When 
you extend the dictionary in Forth you call 
it compilation. When you generate an inde- 
pendent system with Forth you call it meta- 
compilation. (In most other languages, the 
only thing you can do is generate an inde- 
pendent system.) 

Come on, there's got to be more to it 
than that, you say? Well, okay. The "meta" 
means self-referencing. In other words, 
when what you compile is another Forth 
system, it's called metacompilation. Using 
the same logic, if you used a C compiler to 
compile another C compiler you could also 
call it metacompilation. (As an aside, you 
don't often hear of that, do you? No! Forth- 
ers are almost the only people generally 
willing to build their own systems. Of 
course, some might say we're the only ones 
who need to.) 

Target Compilation 

Well, the above explains where "meta" 
originated, but it isn't the full story. An- 
other term, "target compilation" compli- 
cates things slightly. What if you want to 
generate an independent system that is not 
a Forth system, perhaps a short utility pro- 
gram? In that case, you might call it target 
compilation instead of metacompilation. 
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What if you use your Forth system to gen- 
erate independent co^ designed to run on 
a different processor? Its "target" is the 
other processor, so clearly this would be 
target compilation. But what if that inde- 
pendent system, designed to run on the 
other processor, is another Forth system? Is 
it target compilation, metacompilation, or 
meta-target-compilation? I don't think this 
leads anywhere, so I suggest we just use the 
word metacompilation for all cases where 
an independent system is generated. 

Other Definitions 

By target system or dictionary, we mean 
the result of the metacompilation. By host 
system or dictionary, we mean our regular 
Forth system. By Uie way, in cmFORTH 
and Pygmy, \ is used instead of [COM- 
PILE] — it does not indicate a comment. 
PUSH and POP are used instead of >R and 

R>. 

Uses of a Metacompiler 

Here are the main uses I can think of for 
a metacompiler: 

1. Use your current Forth system to 
make a slightly changed version of itself 
to run on the current hardware. 

2. Use your current Forth system to 
make a new (perhaps drastically differ- 
ent) Forth system to run on the current 
hardware. 

3. Use your current Forth system to 
make a new Forth system to run on a 
different processOT or operating system. 

4. Use your current Forth system to 
make a standalone utility or application 
to run on your current hardware. 

5. Use your current Forth system to 
make a standalone utility or application 
to run on different hardware. 

Problems 

There are only two main problems that 
metacompilers must solve: logical versus 
physical addresses, and arranging and 
searching the dictionary so the right word is 
found at the right time. 

Logical vs. Physical Addresses 

Whereas the regular compiler merely 
extends the dictionary, the metacompiler 



These words re-link the target dictionary so that the correct values will be pwesent in the link 
fields. 

SCAN ( If a - If a) Follows the link fields backwards to find the next one that is in the 
target dictionary space. 

TRIM ( Ifa new-lfa - new-lfa) 

Converts the previous link field address from a physical address to a logical address and stores 
it in the current word's link field, then unsmudges the current word's name field in case it is 
smudged. 

CLIP ( voc-head -) Goes through all the words in a vocabulary, TRIMing each one, then 
links the first word to the null word. 

PRUNE ( -) CLIPS each of the target's vocabularies. 



: SCAN ( Ifa - Ifa) @ BEGIN DUP 1 $8000 WITHIN WHILE @ REPEAT ; 

: TRIM ( Ifa new-lfa - new-lfa) DUP PUSH dA @ - SWAP '. POP 
DUP 2 + DUP C@ $DF AND SWAP C! ( unsmudge) ; 

: CLIP ( voc-head -) DUP BEGIN DUP SCAN DUP WHILE TRIM REPEAT 
DROP TNULL @ dA @ - SWAP ! @ , ; 

: PRUNE ( -) {8 HASH CLIP 6 HASH CLIP 
TNULL @ OFF ( zero out its link field) { 

Figure Six. 



Some regular words need to be re-named so we can still get to them after we have defined 
metacompiler versions of them. 

FORTH' ( -) Sets CONTEXT to the host's FORTH vocabulary. 

COMPILER' ( -) Sets CONTEXT to the host's COMPILER vocabulary. 

\' ( -) Compiles the following word in the input stream from the host's COMPILEIR 
vocabulary. 

:' ( -) Starts a colon definition in the host's FORTH vocabulary. 

dA@- ( a - a ' > Converts a target physical address to a logical address. 

: FORTH' FORTH ; 

: COMPILER' COMPILER ; 

COMPILER : \' \ \ ; FORTH 
■ ■ I . . 

: dA@- dA @ - ; ( this is used often ) 
Figure Seven. 
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LITERAL ( n -) 



Compiles a 16-bit literal into the target. 



] ( ] ( -) is the metacompiler's colon compiler. It looks up the next word 

from the input stream and does something with it. If the word is in the host's COMPILER, the 
word is executed. Else, if the word is in die target's FORTH, the word is compiled. Else, if the 
"word" is a valid nimiber in the curroit base, it is compiled as a literal. Else, an error is 
reported. Sequence is everything. This approach, plus the ability to switch between host and 
target spaces with { and ) , is the secret to the simplicity of the metacompiler. 



COMPILER 

: LITERAL ( n -) TLIT 8 ,A , ; 
FORTH 

: ] BEGIN 4 -• ( restrict execution to host's COMPILER) 
IF 6 -FIND ( restrict finding to target's FORTH ) 
IF NOMBER \ LITERAL 

ELSE ,A 
THEN 
ELSE EXECUTE 
THEN 
AGAIN ; 



Figure Eight 



\ ( -) compiles the following word from target's CC»1PILER. 

Metacompiler words to create target looping and branching structures within target colon 
definitions: 

BEGIN ( - a) Saves the address to branch back to. 

UNTIL ( a -) Compiles a conditional branch to address a. 

AGAIN ( a -) Compiles an unconditional branch to address a. 

THEN ( a -) Completes a branch started by IF ELSE etc. 

IF ( - a) Starts a conditional branch. 

WHILE ( a - a a ) Starts another conditional branch. 

REPEAT ( a a -) Completes a BEGIN WHILE structure. 

ELSE ( a - a) Starts the false part of an IF statement. 

FOR ( - a) Starts a FOR NEXT loop. 

NEXT ( a -) Completes a FCR NEXT loop. 



COMPILER 
\ 8 -' 
BEGIN ( 
UNTIL ( 
AGAIN ( 
THEN ( 
IF ( 
WHILE 



ABORT" ?" 

a) HERE ; 
. -) TOBR @ ,A 
TBRA 6 ,A 
HERE dA e 



,A 



( F83's [COMPILE] ) 



-) 



,A 



-) 



- SWAP ! ; 
( - a) TOBR 8 ,A HERE , ; 
( a - a a ) \' IF SWAP ; 
REPEAT ( a a -) \' AGAIN \' THEN ; 
ELSE ( a - a) TBRA @ ,A HERE , SWAP \' THEN 
FOR ( h -) TFOR 8 ,A \' BEGIN , ; 
( performs u times instead of u+1 times ) 
: NEXT ( h -) DUP \' THEN 2 + TNEXT 8 ,A ,A ; 
FORTH 

Figure Nine. 



needs to lay down code somewhere else, 
usually referred to as the target space or 
target dictionary. The address where this 
code is laid down is not the address where 
it will sit later, when it is executed. Fot ex- 
ample, if you are generating code that will 
later be loaded at address zero, you might 
build it at address $8000 (or wherever you 
enough free memwy to hold it). 

When it is an address that you are laying 
down, you have two things to consider: its 
physical address (where it is now, at com- 
pile time) and its logical address (where 
you plan for it to be later, when it actually 
executes). Suppose we wanted to compile 
the address of the following 16 bits into 
address $8000. The physical address of the 
word is $8002. But, later executed, what's 
at $8000 will be at $0000 (and what's at 
$8002 will be at $0002); we must store 
$0002 into address $8000. Thus, the meta- 
compiler needs a method of converting 
between logical and physical addresses. 

Search Order 

When you want to compile a definition 
into the target space, where do you look for 
the words, and what about duplicates? 
Should the word be compiled cat executed? 
Suppose you want to define the following 
word: 

: DO-NOTHING ( n - n) 
DUP SWAP DROP ; 

Let's take the words left to right You don't 
want to use the host colon that compiles 
into the host dictionary. Instead you want to 
find and execute the metacompiler version. 
Then, you want to find DUP, SWAP, and 
DROP, not in the host dictionary, but in the 
target dictionary. And you want to compile 
them rather than execute them. For the 
semi-colon, the metacompiler version from 
the host must be found and executed. 

There are various tricks for lodcing in 
the right pl^e at the right time. It can also 
be very simple. Getting this search order 
right is the heart of the metacompiler. Now 
let's look at a simple way of solving these 
problems. 

cmFORTH and Metacompilation 

Charles Moore invented a beautifully 
simple metacompiler in his cmFORTH for 
the Novix. I used this general approach in 
Pygmy FcMth for MS-DOS machines. 

The words { and } (left and right curly 



Forth Dimensions 



34 



Volume XII, Number 6 



ABORT" ( -) ( flag-) Compiles following error message. 

." (-)(-) Compiles following string to be typed later. 

[ • ] ( -) Compiles pfa of following word from target's FORTH 

as a 16-bit literal. 

FORTH ( -) Sets CONTEXT to target's FORTH. 

COMPILER ( -) Sets CONTEXT to target's COMPILER. 

: ( -) Starts a colon definition in target dictionary . Note that it lays down 
a jump (it's faster) and not a call. 

; ( -) Ends a colon definition in target (Uctionary. 



HEX 

COMPILER 

ABORT" TABORT @ ,A 22 STRING ; 

TDOT @ ,A 22 STRING ; 
[•] TLIT @ ,A ; 

FORTH 

: FORTH 6 CONTEXT ! ; 
: COMPILER 8 CONTEXT ! ; 

: : TCREATE -3 ALLOT TOOL @ LJMP, 

( lay down 3byte junp to docol) forget ] ; 

COMPILER' 

: ' ; forget POP DROP TEXIT 6 ,A ; ( must be the last colon) 

( def in the metaconpiler) 

FORTH' 



Figure Ten. 



braces) switch between the regular diction- 
ary and the target space, e.g., 

{ : ABC DUP SWAP DROP ; 
: ODE ABC ABC ; 
: FGH ABC CDE ; 
} 

would compile those three words into the 
target space and then return the dictionary 
pointer back to the regular dictionary. 

Rather than having separate pointers for 
the two spaces, and two versions of here 
(perhaps here and THERE), the curly 
braces switch the value stored at H (the 
dictionary pointer, called DP in some 
Forlhs). By handling the change at this low 
level, the need for separate versions of 
comma, C-comma, and here disappears. 

Relocation of addresses is handled by 
the words dA and , A. dA ("delta-address") 
is a system variable that holds the reloca- 
tion factor. It is used by ,A ("comma- 
address") both in the regular Forth system 
(when dA has a value of zero) and when 
metacompiling (when dA has a value of 
$8000). 

The above takes care of the simple iwob- 
lem of compiling code at one address to run 
later at a different address. The more diffi- 
cult problem is search order how do we 
find the correct word to execute or com- 
pile? 

In some metacompilers this gets very 
complex, with complicated switching of 
vocabularies and testing for whether we are 
in the target dictionary or not Fortunately 
there is a simpler method. 

Charles Moore solved the problem (and 
some others) in cmFORTH with the novel 
and elegant method of having just two 
vocabularies: compiler and FORTH. 
Words in COMPILER are immediate. All 
the other words are in forth. When inter- 
preting, words are looked for only in 
FORTH. When compiling, COMPILER is 
searched first. If the word is found, it is 
executed (it is an "immediate" word); else 
FORTH is searched and the address is 
compiled. New words are linked into either 
FORTH or COMPILER depending on the 
value of CONTEXT. Thus, there is no IM- 
MEDIATE word. Thus, you can have two 
versions of a word with the same name, one 
in each of the vocabularies. One only works 
when compiling and the other only when 
interpreting. For example, you can have the 
word . " in COMPILER that compiles a 



string for later printing, and the word . " in 
FORTH that prints the string rightnow. This 
eliminates the need for the abomination . (, 
which some Forths use to print a string 
while interpreting. 

The vocabulary heads immediately 
precede the variable context. Thus, in 
Pygmy Forth, CONTEXT 2 - is the address 
of the vocabulary head for FORTH and 
CONTEXT 4 - is the address of the vocabu- 
lary head for comp iler. Since the Novix 
is a cell-addressed machine, instead of a 
byte-addressed machine, the offsets in 
cmFORTH are 1 for FORTH and 2 for 
COMPILER, rather than 2 and 4 as in 
Pygmy. 

cmFORTH uses just those two vocabu- 
laries, both for regular and meta-compila- 
tion. To make my life a little easier with 
Pygmy, I added two more. It has a FORTH 
and COMP I LER for the host dictionary and 
another set of FORTH and COMP iler for 
the target dictionary. Thus, offsets from 
CONTEXT of 2 and 4 point to the host 
FORTH and COMPILER voc-heads and 6 



and 8 point to the target forth and COM- 
p ILER voc-heads. This is not strictly nec- 
essary, but makes it simpler to follow what 
you are doing and to control exactly where 
you are searching. These extra two vocabu- 
laries are used only when metacompiling. 

Look at the code for interpret in 
Figure Thirteen. It only searches host's 
FORTH. If the word is found it is executed. 
No problem, and no confusion with words 
of the same name that have been compiled 
into the target dictionary. This gives us 
access to our regular Forth system for sav- 
ing memory images to disk, for poking 
around in memory with dump, for editing, 
examining the stack, etc. 

The same search mechanisms such as 
-FIND, ' , and -' that are used with the 
host dictionary work fine without any 
changes with the target dictionary. 

Look at the code for ] (the 
metacompiler's colon compiler) in Figure 
Fourteen. Here we explicitly control the 
search. Within a colon definition we first 
search the host's COMPILER. This finds 
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Start of the Pygmy Forth Kernel. 6 and 8 are the CONTEXT values for the target's FORTH and 
CCMPIIiER vocabularies. 

boot ( -) is where the execution of the PYGMY.COM file starts. It is made headerless 
by the -7 ALLOT. It initializes the two stack pointers and jumps to the word reset. 

$ ( -) is the "null" word. The dollar sign is not its real name. Its real "name" has a 
length of zero! It is named $, then the -2 ALLOT erases the dollar sign and length of 1. The 
C, changes the length to zero. When null is executed it exits an endless loop. This happens, 
for example, when the input stream is exhausted. 



HEX 

6 HASH OFF 
8 HASH OFF 

{ ( to target) 

100 ALLOT ( first 256 bytes are reserved for DOS) 
-7 ALLOT ( align pfa of BOOT to $0100 ) 

FORTH ( sets context to 6 ) 

CODE boot ( for now leave stacks & everything in one 64K seg) 
FFOO #, BP MOV, ( initialize return stack) 
FEOO #, SP MOV, ( initalize parameter stk) 
#, AX MOV, ( addr of reset - patch it later) 
AX JMP, ( jump to "reset") END-CODE 

HEBE TNULL ! ( following is null word that will get renamed) 
CODE $ -2 ALLOT C, SWITCH, SI POP, SWITCH, NXT, END-CODE 

HERE dA @ - RAM ! 
2A TNB 1+ 2* + ALLOT ( leave room for system variables) 

Figure Eleven. 



the words IF, ELSE, then, begin, 
WHILE, REPEAT, ABORT", and such. In 
other words, the immediate words. These 
words are the metacompiler versions that 
are defined in the host's dictionary. These 
words are executed. They affect the compi- 
lation, usually laying down special run- 
time target code. They are not confused 
with the host's regular versions of these 
same words, even though they are also in 
host's COMPILER because the metacom- 
piler versions were defined after the regular 
versions. Any of the regular versions of 
words in either host's FORTH oc COM- 
PILER that might be needed later must be 
renamed. See Figure Seven for an example 
ofrenaming FORTH, COMPILER, /.and : 
so we can access them later, after the meta- 
compiler versions with the same names are 
defined. Note that with this system, only 
those four need to be renamed. 

If the word is not found in host's COM- 
P I LER, then we look in target's FORTH. If 
found, its address is compiled into the tar- 



get dictionary. Thus, there is no danger of 
finding the host's version of that word by 
mistake. If the word is not found in either 
host's COMPILER or in target's forth, 
then an attempt is made to convert it to a 
number and compile it as a literal. If that 
fails, an error message is displayed. 

Let's take a closer look at how the 
defining words such as IF, ELSE, 
LITERAL, ABORT" , etc. work. They must 
be defined in host's compiler so they 
will execute during the definition of a target 
word to lay down a target run-time word 
that hasn't been defined yet. How do we 
handle this impasse? 

There are two general approaches. The 
first is to sprinkle these defining words 
throughout the target code. For example, 
IF must lay down the code for Obranch. 
We could switch to the target dictionary 
and define Obranch and then switch back 
to the host dictionary and define the meta- 
compiler version of IF that uses it. This is 
a very workable method, but I prefer to 



group all the metacompiler definitions 
together in one pla;e and then group all the 
target definitions in another, rather than 
interleaving them. 

The second approach, which is used in 
Pygmy, is to define variables to hold the 
addresses of those run-time words (Figure 
Two). Then we can go ahead and define IF, 
for example, to fetch the contents of the 
variable T BR and lay it down. At the time 
we define if, the address of the run-time 
routine Obranch is not known. Then, in 
the target definitions, as soon as we define 
Obranch we store its address into 
T Obra. Of course, either way we must not 
use the word if in a target definition until 
after Obranch has been defined! Figures 
Five, Nine, and Ten show how the defining 
words use these variables. Figure Twelve 
shows the target definitions for the run- 
time words var, Obranch, and branch 
and how their related metacompiler 
variables tvar, tobr, and tbra get ini- 
tialized. 

cmFORTH has it a little easier. It 
doesn't call run-time routines, such as 
Obranch and lit. Instead, these are laid 
down as in-line machine code. Thus, they 
are known at the time IF, LITERAL, etc. 
are defined. 

As the target image is being compiled, 
the link fields contain physical addresses so 
the host system can find target words. 
When finished, before saving the target 
image to disk, these link addresses must be 
converted to the correct logical addresses 
by applying the relocation factor from dA 
to them, scan, trim, clip, and prune 
in Figure Six take care of this re-linking and 
a few other housekeeping details. 

Using It 

Actually using the metacompiler in 
Pygmy Forth is very easy. Just type 1 LOAD 
(Figure One) and a new kernel will be 
generated automatically. Screen One loads 
the metacompiler and then loads the source 
code for the Pygmy kernel, then re-links the 
target dictionary and saves the image to 
disk as a .COM file. At this point you can 
return to DOS with bye and run the new 
kernel. All the code for the metacompiler, 
the kernel, and the editor and assembler is 
in the single file PYGMY.SCR. 

Pygmy Forth (for MS-DOS machines) 
is available on disk from FIG or by down- 
loading from GEnie or other bulletin 
boards. Look for version 1.3. If you haven't 
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Examples of target run-time code words. 

lit ( - n) is the run-time routine for a literal. It pushes the following 16-bit word to the 
data stack. 

array ( n - a) is the run-time routine for an array. It pushes the address of the nth 
16-bit entry of the array to the data stack. 

var ( - a) is the run-time routine for a variable. It pushes the address of the variable to 
the data stack. 



Obranch ( n -) 



branch ( -) 



If the top of stack is non-zero, the following in-line address is 
skip>ped. If the top of stack is zero, a jump to the following in-line 
address is taken, "zero branch" 

An unconditional jump to the following in-line address is taken. 



Following is how a variable is compiled into the dictionary: 
LINK , NAME , JMP<var> , VALUE 

2 ? 3 2 (# of bytes in each field) 

CODE lit ( -n) HERE TLIT ! 

BX PUSH, ( push TOS to SOS) 

AX LODS, ( ax <— [IP] , IP++ ) 

( get in-line value, not addr) 
AX BX MOV, ( to TOS) 
NXT, 
END-CODE 

CODE array ( n -a) HERE TARR ! ( nth word index into array ) 
3 #, AX ADD, ( -jump over 3 byte JMP) 
AX BX XCHG, 

[BX] BX MOV, 

1 #, AX SHL, { multiply by 2 to addr nth word) 

AX BX ADD, ( now TOS holds addr of nth word of array) 
NXT, END-CODE 

CODE var HERE TVKR ! 

BX PUSH, ( push TOS to SOS) 

3 #, AX ADD, ( junp over 3 byte JMP) 
AX BX MOV, ( put that addr in TOS) 
NXT, END-CODE 

CODE Obranch HERE TOBR ! 
AX LODS, BX BX TEST, 
0-, IF, AX SI MOV, THEN, 
BX POP, 

NXT, END-CODE 

CODE branch HERE TBRA ! 

[SI] SI MOV, NXT, END-CODE 

Figure Twelve. 



tried metacompiling, this is an easy way to 
experiment with it The first step is to type 
1 LOAD without making any changes, to 
get a feel for the piocess. Then start making 
minor changes to the kernel, such as the 
number of disk buffers or the default col- 
ors. As your confidence and experience 
with it grows, you can tackle more adven- 
turous changes. 

Well, we shined the light nearly every- 
where and found no monster to fear. Let's 
put on the safety on the shotgun and finish 
that bottle of Scotch. 



Frar^ Sergeant is a hardware and soft- 
ware consultant specializing in busi- 
ness and real-time systems. He is the 
author and implementor of Pygmy 
Forth. 



(Figures continued on page 41.) 
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(Continued from page 5.) 

as Directors before; and Mike Elola and 
Jack Brown are continuing Directors. The 
first meeting of the Board was held at 
FORML, where new officers of the corpo- 
ration were elected and the Board decided 
to increase the membership fees to $40. The 
Board's next meeting was planned for 
January in southern California. [After press 
time for this issue. — Ed.] 

The officers — ^John Hall, President; 
C.H. Ting, Vice-President; Mike Elola, 
Secretary; and Dennis Ruffer, Treasurer — 
have started to reshape the functions of 
FIG. The officer's job is to carry out the 
directions of the Board of Directors, serv- 
ing as leaders in carrying out those direc- 
tions and performing the day-to-day func- 
tions of running the corporation. One of the 
President's duties is to preside at the Board 
of Directors meetings and the monthly 
business meeting; another is to appoint 
committees or individuals to perform 
needed jobs or to explore the implications 
of potential useful services to our members. 
Call me with ideas! 

The monthly business meeting (held the 
Tuesday evening before the fourth Satur- 
day) is where the decisions of the day-to- 
day functions get made. The members of 
the Business Group consist of the officers 
and other individual members who are in- 
terested in the business of FIG. The Busi- 
ness Group is open to all members, each of 
whom — on all decisions of the Business 
Group — can participate equally. Call the 
FIG business office. Tell us you are com- 
ing! 

In the next Forth Dimensions, I want to 
explore issues that I feel need to be dis- 
cussed. In the meantime, with your ideas, 
call me! 

—John Hall 
415-535-1294 
(after 7:00 p.m. Pacific time) 



Attention Forth Authors! 



AUTHOR RECOGNITION 

PROGRAM 



To recognize and reward authors of Forth-related articles, the Forth Interest Group 
(FIG) has adopted the following Author Recognition Program. 

Articles 

The author of any Forth-related article published in a periodical or in the proceed- 
ings of a non-Forth conference is awarded one year' s membership in the Forth Interest 
Group, subject to these conditions: 

a. The membership awarded is for the membership year following the one during 
which the article was published. 

b. Only one membership per person is awarded in any year, regardless of the 
number of articles the person published in that year. 

c. The article's length must be one page or more in the magazine in which it 
appeared. 

d. The author must submit the printed article (photocopies are accepted) to the 
Forth Interest Group, including identification of the magazine and issue in 
which it appeared, within sixty days of publication. In return, the author will be 
sent a coupon good for the following year's membership. 

e. If the original article was published in a language other than English, the article 
must be accompanied by an Engish translation or summary. 

Letters to the Editor 

Letters to the editor are, in effect, short articles, and so deserve recognition. The 
author of a Forth-related letter to an editor published in any magazine except Forth 
Dimensions is awarded $10 credit toward FIG membership dues, subject to these 
conditions: 

a. The credit applies only to membership dues for the membership year following 
the one in which the letter was published. 

b. The maximum award in any year to one person will not exceed the full cost of 
the FIG membership dues for the following year. 

c. The author must submit to the Forth Interest Group a photocopy of the printed 
letter, including identification of the magazine and issue in which it appeared, 
within sixty days of publication. A coupon worth $10 toward the following 
year's membership will then be sent to the author. 

d. If the original letter was published in a language other than English, the letter 
must be accompanied by an English translation or summary. 
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Welcome new members 



The Forth Interest Group welcomes the new members who 
joined us during the past year, including: 



Akademii Nauk SSSR BibUoteka 
Fejer Megyei Vizmuvek 
Hiradastechnika Szovetkezet 
lAP/PCA SateUite Library 
Maryland Procurement Oiffice 
Mixer Systems, Inc. 
RAS Systems, Inc. 
Schweitzer Sottiment 
WFT Electronic Systems 
Steven Allard, W. Tombling Ltd. 
Eric C. Anderson 
Casey T. Bazewick, Jr. 
Ray Bell 

Joseph H. Boutwell 
Robert W. Brown 
Paul Bunyan 

Matthew Burke, Computer Science Dept. 

David Cabana 

Mark Christensen 

Lee Cobum 

E. Coleman 

Val J. Cooper 

Bernard Cosell 

Jason CunUffe, Mighty Dimension Inc. 
Federico Daneri 

David P. Dille, Controlsoft Research 

Aaron C. Dutton, Computer Sciences Corp. 

David Erbas-White 

David Ferrara 

Chris Frank 

Gabriel Fugulin 

Richard Gallehr 

David Garcia 

Remy Gentis 

Charles A. Gray 

Emilio Guarise 

David C. Haas, Owens-Coming 

Tech. Center 
J. Harhellier 
Tim Heaps 
Daniel P. Hill 

Michael, Hillerstrom, Dansk 

Data Elektronik 
Peter HUtz 

Charlie Holloway, H&N Instruments, Inc. 

Andrew P. Houghton 

Mark Humphries 

Art Hyde, Florida Dram Co. 

Brian Jackson 

Woo- Jin Jang, Photone Research Ctr. 
Hyun Jeong Tae, Korea Advanced 

Energy Research InsL 
William R. Jones 
Kun Katsumata, Nictrix Corp. 
Martin Kees 
Robyn L. King, NASA 
David F. Klink 
Amatt KUnsong 

Chung -Cheng Li Kong, Ta Tong 
Book & Magazine Service 
Choonu Lee, Photone Research Center 
John Longton 
Peter Lu 
Jacob Maier 



Leningrad, USSR 
Szekesfehervr, HUNGARY 
Budapest, HUNGARY 
Riyadh, SAUDI ARABIA 
Fl George Meade, MD 
Pewaukee, WI 
CampbeU.CA 
Munchen, GERMANY 
Denver,CO 

Spaloing, Lines, ENGLAND 

Beavercreek, OH 

San Francisco, CA 

Buffalo, NY 

AtlanU, GA 

Medina, OH 

Rio Linda, CA 

Pullman. WA 

Tampa, FL 

London, UT 

Lakewood, CO 

Los Gates, CA 

Monmouth, OR 

Lexington, MA 

New York, NY 

Genova, ITALY 

St. Louis, MO 

Baltimore, MD 

El Toro, CA 

Santa Rosa, CA 

Garland, TX 

Montreal. PQ, CANADA 
BosUm, MA 
Suten Island, NY 
Wilmington, MA 
Phoenix, AZ 
Milano, ITALY 
Granville, OH 

Eupen, BELGIUM 
Agoura Hills, CA 
Vancouver, WA 
HjaUerup, DENMARK 

Lake Orion, MI 
Newark, OH 
Columbus, OH 
Daly City, CA 
Pine Bluff, AR 
Qeveland, MS 
Seoul, KOREA 
Choone-Nam, KOREA 

Morgantown, KY 
San Jose, CA 
Pasco. WA 
Greenbelt, MD 
Fort Coffins, CO 
Chicago, IL 
Taipei, Taiwan 

Seoul, KOREA 
Brooklyn, NY 
Occidental, CA 
Toronto, ON, CANADA 



Mark Malmros 
ElUott R. Marsh, IBM 
Robert Mayer 

Richard G. McCord, Conpane 

Industries, Inc. 
Edwin Miller 
Mike Mills 
Fred Minetto 

Larry Minthom, University of Iowa 
J.T.P. Moule 
Paul Mrofchak 

Patrick Newton, nView Corp. 

Adorjan Noemi 

J. Ozegovic 

Clinton B.Petryll 

Qyde Phillips, Access Express 

Brian Piercy, Harris Semiconductor 

Abdur Rahmaan, Noble Science Library 

R.M. Reynolds 

Franco Ricci 

Thomas Ritchey, Ritchey Engineering 

David Ritchie 

William Robinson 

Joel Rubin 

ScoU T. Schad 

Boris Schlensky 

Conrad Schlundt 

Tom Shaw 

Delwin P. Stevens 

Robert Suess 

Brian Sutton, Cilras Park Chiropractic 
Alain Theroux, Logiciel Plus 
V.H. Vinerts 

Richard C. Wagner, Naval Air 

Develt^ment Center 
Steven A. Wallace 
Manfred Wolfle 
Charles R. Wollitz 
Mark Wood, RSS, Inc. 
Edward Woodman 
Bill Zimmerly 
Patrick Dixon 
Christian Beauregard 
J. KHr, MCSL 
Peter Spencer 
Loy Spears 
Anthony Blazej, IBM 
Jack Rausch 
Giorgio Kourtis 
Thor-Bjora Bladh 
Fred Temple 
Edward Nass 
Gavin Craig 
Hubert M. Schmitter 
Peter Hauser 
WiUiam Higinbotham, 

Brookhaven National Lab 
Richard Reichstadt 
Robert Nace 
Patrick Ness 
Wiffiam H. Madden 
Paul Schumann 
Michael Hubbard 
Sandy Warshaw, Optisys 



Washington Crossing, PA 
Endicott, NY 
Quakertown, PA 
Louisville, KY 

Bellaire, TX 
Cinciimatti, OH 
Temple Hills, MD 
Iowa City, lA 

Isle of Man, BRTHSH ISLES 

Warren, OH 

Newport News, VA 

Budapest, HUNGARY 

SpUt, YUGOSLAVU 

Placentia, CA 

Oak Park, IL 

Melbourne, FL 

Tempe, AZ 

Geneva, NY 

Firenze, FTALY 

Chester Springs, PA 

Eagle, ID 

Chicago, IL 

San Francisco, CA 

Tulsa, OK 

Palo Alto, CA 

The Colony, TX 

Philadelphia, PA 

Anaheim, CA 

Indianapolis, IN 

Tampa, FL 

Sheitrooke, PQ, CANADA 
Newark, CA 
Revere, PA 

Knoxville, TN 

Berlin, GERMANY 

Buckeye, AZ 

Costa Mesa, CA 

Newbury Port, MA 

St. Louis, MO 

Hastings on Hudson, NY 

Lorcttevillc, PQ, CANADA 

St. Albans, Herts, ENGLAND 

BotheU, WA 

Placentia, CA 

Milford, CT 

AdelfAi, MD 

Genoa, FTALY 

Lund, SWEDEN 

Pittsburgh, NY 

Plainview, MN 

Mtn. View. CA 

Jefferson, LA 

Taegerwilen, SWITZERLAND 
Upton, NY 

Fairmont, MN 
Pleasant HiU, CA 
Rapid River, MI 
Livonia, MI 
Mesquite, TX 
Boulder, CO 
Long Beach, CA 
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Gaiy Richardson 

Jim Polstra, Oibital Sciences Corp. 
R.W. Fergus, Astute Solutions 
John Spencer 

Ferenc Kish, Robway Safety Systems 

JohnOtt 

John Svae 

Javier Campos, Universidad de Zaragoza 

A. Foord 
J J. Kent 

Bill Stoddait, Teesside Polytechnic 
John Dillon 

Steve Jacobs, Iomega Corp. 

Rick Powers, Phoenix Inst, of Technology 

Gary Keen, War Veteran's Homes 

Philip W.Y.Keung 

Raymond N. Thornton 

Chris Mayne, Bernoulli Optical 

Mike Budaji 

David Zethmayr 

Thomas Schossig 

John Tse, Chrisma Techndogy 

Jrfin L. Brown 

Robert Drap 

B. A. Manook 

Randy Black, SCI Technology, Inc. 

Luther Huffman 

Bill Wood 

WiUiam B. Bunch 

David Vaughn 

Roberto Dell'Acqua 

Sarah Cornel, Mitel Coip. 

Edwaid Tylka 

Lee Robertson 

Harry L. Spencer, Jr. 

Robert Kennedy 

A.E.F. Coenen, Sweelinck Conservatory 

Owen Ransen 

Robert F. Orenstein 

Richard Silkowski 

Bmce Raymond 

JohnHaU 

Yukinobu Miki 

Yale Univ. Medical Sdiool 

Peter Peterson, Mykro/P.S.I. 

Ste;^en Pierotti 

Salil Donde 

Hogan Lew, Synoptics 

Communications, Inc. 
John W. Klay, M.D. 
Kenneth Perusek 
Pablo Casado 

Kenneth Frost, OEM Controls 
Brace Bales 
Brian Rogoff 

Bob Burchsted, Aeonic Systems 



Alameda, CA 
Boulder, CO 
Lombard, IL 
San Jose, CA 

Thebarton SA, AUSTRALIA 

Bremen, IL 

NORWAY 

Zaragoza, SPAIN 

Malvem, Worcs, ENGLAND 

QLD, AUSTRAUA 

Middlesbrough, Qevld, ENGLAND 

Stratford On Avon, Worcs, 

ENGLAND 

Roy,UT 

Phoenix, AZ 

Mackay, QLD. AUSTRAUA 

Abcrxleen, HONG KONG 

Hackensadc, NJ 

Boulder, CO 

Qeveland, OH 

LaGrange, IL 

Gotha, GERMANY 

SINGAPORE 

Oakland, CA 

Mission Viejo, CA 

Swindon, Wilts, ENGLAND 

Huntsville, AL 

Dayton, OH 

Ciystal, MN 

DaUas. TX 

Austin, TX 

Milano, ITALY 

Kanata, ON, CANADA 

San Diego, CA 

Sandy. UT 

Huntsville, AL 

Elmhurst, IL 

Amsterdam, 

THE NETHERLANDS 

Milano, ITALY 

Metuchen, NJ 

Poughkeepsie, NY 

Beavercreek, OH 

Wandwick, NSW, AUSTRAUA 

Ibaraki. JAPAN 

New Haven, CT 

Salt Lake City, UT 

Btoomfield, CO 

Goose Creek, SC 

Mm. View, CA 

Pittsburgh, PA 
Solon, OH 
Pamplona, SPAIN 
Shelton, CT 
Benton, KS 
Menlo Paik, CA 
Billerica, MA 



Nick Janow 
Bob Brans 
Michael Dorais 

Forrest Schomberg, USSfPOSCO 
Alan Tabur, NSWC 
Peter Blasberg, Boehringer 

Mannheim GmbH 
Gabriel Marro Gros 
Dr. Pfuller, FORTecH Software GmbH 
Saman Samimi 
U.S. Remote Contrds 
Jose E. Komeluk, Jr. 
David Dan, Intel Tedi. Far East Ltd. 
Colin Connery 
Olaf Meding, Amtelco 
B.M. Shann 

Bengt Karlstrom, Mactec Control 
Deiter WeUer 

David Aitkon, PC Systems Corp. 
Robert W. Curry 
Garth Wilson 
John J. Deering 
J.G. Woyka 

Dr. Howard Shapiro MDPC 
Robert A. Hall 

William Hickey, Fox Theaters 
Donald Adnam 
Rob Miller, Greenlee Textron 
Dosatron S.A. 
Kouji Hori 
Greg Schmidt 

Fabien Tuizat, Atelier de la Forge Royale 
Raymond LaPorte 
Jan Michaels 
Knute Johnson 

Chih-Yu Chao, Altech Controls 
Paul Olivers 
Alfred Oliphant 
Ralph Stockhausen 
Greg Bentz 
Robert Thompson 
Michael Krell 

Cesar Qavell, Naval Ocean Systems Center 
Doug Baron 
Robert Koponen 
Paul O. Lloyd, Microsemi Corp. 
Gerald Childers 
Gary Camer 

Brian Howell, Shenandoah Products 
Klaus Malzahn 
John F. Dodds 
Richard Carleton 
Martin Marietta Library 
Michael Hosmer 
Ryon Root 
Knute Johnson 



Vancouver, BC, CANADA 
Campbell, CA 
San Diego, CA 
Antioch, CA 
Dahlgren, VA 
Mannheim. GERMANY 

Zaragoza, SPAIN 
Rostock, GERMANY 
Parramatta, NSW. AUSTRAUA 
San Francisco, CA 
W. Palm Beach. FL 
Taipei. Taiwan 
Ml Vernon, NY 
Madison, WI 

Fieeland, Oxford, ENGLAND 

Kristianstad, SWEDEN 

Springfield, OR 

Melville. NY 

Rochester, NH 

Whittier, CA 

Tucson. AZ 

Haddington, E. Lothian, 
ENGLAND 
West Newton, MA 
Los Gatos, CA 
Taft.CA 

Ottawa. ON. CANADA 
Rockford. IL 
Latresne. FRANCE 
Saitama, JAPAN 
Richmond Heights, OH 
Paris, FRANCE 
Vancouver, BC, CANADA 
Beriin, GERMANY 
Sylmar, CA 
Houston, TX 

Bateman, WA, AUSTRALIA 
Trinidad, CA 
Milwaukee, WI 

Richmond HiU, ON, CANADA 

Hattiesburg. MS 

Chariottesville. VA 

San Diego. CA 

Indianapolis. IN 

Lakeland, FL 

Orange. CA 

East Holden, ME 

Jamesville, NY 

Cottonwood, AZ 

Duesseldorf, GERMANY 

Newbuiy, OH 

Augusta, GA 

Piketon, OH 

Orem,UT 

Glendora, CA 

Sylmar, CA 
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(Continued from page 30.) 

set of FORML Proceedings, and Mitch got 
an RTX2001A chip. Both winners agreed 
to present their programs in our December 
meeting. 

Chuck Moore's Annual 
Fireside Chat 

Chuck revealed his newest Forth engine 
design, MuP20. It is a 20-bit processor with 
several coprocessors around it to handle 1/ 
and memory transactions. The coproces- 
sors include a DMA processor, a video 
processor, a UART, and three input lines 
for a three-key keyboard. An internal clock 
will allow it to run up to 200 MHz. 

Chuck also conceded that Forth has 
never been successful in the mass-crai- 
sumer market He will probably concen- 
trate on developing highly customized 
products using his special CAD system as 
leverage. 

In the question-answer period. Chuck 
also commented on error recovery 
("don't"), writing video drivers ("shrater 
and shorter"), disk error ("turn the com- 
puter off and walk away"), memory ("fw- 
get disks, use RAM"), files ("yesterday's 
problem"), the three-key keyboard ("most 
natural human interface"), etc. 

Banquet at Ritz Chinese 
Seafood Restaurant 
(Authentic Chinese Banquet) 

Ten-course dinner with cold plate, shark 
fin soup, walnut prawns, beef in nest, fresh 
green vegetable, crab in sauce, steamed 
fish, sweet desert, etc., over lively conver- 
sations about computers, politics, the econ- 
omy, and miscellaneous subjects. 



(Continued from page 37.) 



These are the regular Pygmy words that work in both the host and target dictionaries. There is 
no need for special metacompiler versions of them. 

-' ( u - here t | pfa f) gets the next word from the input stream and looks it 

up in vocabulary u. 

' ( - pfa) Looks up next word in input stream in active vocab. "tick" 

INTERPRET ( blk# offset -) Until the input stream is exhausted, step through it, 

looking up the words in FORTH and executing them 
if found or trying to convert them to a number. 



-' ( n - here t | pfa f) 32 WORD SWAP -FIND 

• ( - pfa) CONTEXT @ -' ABORT" ?" ; 

INTERPRET ( blk# offset -) 
>IN 2! ( ) 

BEGIN 2 ( ie search FORTH) 

( here true | pfa false) 

IF NUMBER ELSE EXECUTE THEN 
AGAIN ; 

Figure Thirteen. 



These are regular Pygmy words, most of which work unchanged in both the host and target 
dictionaries. Special metacompiler versions of LITESyu. and 1 are needed, however. 

ALLOT ( n -) Moves the dictionary pointer H by n (either forward or backward). 

, ( n -) Stores 2-byte number n into the next free location in the dictionary and 
advances H past it. "comma" 



Stores 1-byte number c into the next free location in the dictionary and 
advances H past it. "C -comma" 

) Commas a 16-bit address into the dictionary. It is relocated by the value 
in dA. 



Compile the following word at this word's run-time. 



C, ( c -) 
,A ( a - 
COMPILE ( -) 

LITERAL ( n - ) Compile n so that at run time it will be pushed to the data stack. 
It is DEFER'd. 

] ( -) This is the heart of the colon compiler. It gets the next word from the input 

stream. If the word is in the COMPILER vocabulary it is executed. Else, if the 
word is in the FORTH vocabulary it is compiled. Else, if the word is a valid 
number it is compiled as a literi. Else, error. 

Figure Fourteen. 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Anna Brereton 
at the FIG office's Chapter Desk. 
TMs listing will be updated in each 
issue of Forth Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodiak Area Chapter 

Ric Shepard 
Box 1344 

Kodiak, Alaska 99615 

• ARIZONA 
Phoenix Chapter 

4th Thurs., 7:30 pjn. 
Arizona State Univ. 
Memorial Union, 2nd floor 
Dennis L. Wilson 
(602) 381-1146 

• CALIFORNIA 

Los Angeles Chapter 
4th Sat, 10 ajn. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 

North Bay Chapter 

3rd Sat 

12 noon tutorial, 1 p.m. Forth 
2055 Center Sl, Berkeley 
Leonard Morgoistem 
(415) 376-5241 



Orange County Chapter 

4thWed.,7pjn. 

Fullerton Savings 

Huntington Beach 

Noshir Jesung (714) 842-3032 

Sacramento Chapter 
4thWed.,7pjn. 
1708-59th St., Room A 
Bob Nash 
(916) 487-2044 

San Diego Chapter 
Thursdays, 12 Noon 
Guy Kelly (619)454-1307 

Silicon Valley Chapter 
4th Sat, 10 a.m. 
Applied Bio Systems 
Foster City 
(415) 535-1294 

Stockton Chapter 

Doug DUlon (209) 931-2448 

• COLORADO 
Denver Chapter 
1st Mon., 7 p.m. 

Clifford King (303) 693-3413 

• FLORIDA 
Orlando Chapter 

Ev«y other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855-4790 

Tampa Bay Chapter 

1st Wed., 7:30 pjn. 

Terry McKay (813) 725-1245 

• GEORGU 
Atlanta Chapter 

3rd Tues., 7 p.m. 
Emprise Corp., Marietta 
Don Schrader (404) 428-081 1 



• ILLINOIS 

Cache Forth Chapter 

Oak Park 

Clyde W.Phillips, Jr. 
(708) 713-5365 

Central Illinois Chapter 

Champ)aign 

Robert lUyes (217) 359-6039 

• INDL\NA 

Fort Wayne Chapter 
2nd Tues., 7 p.m. 
I/P Univ. Campus 
B71NeffHall 
Blair MacDermid 
(219) 749-2042 

• IOWA 

Central Iowa FIG Chapter 

1st Tues., 7:30 p.m. 
Iowa State Univ. 
214 Comp. Sci. 
Rodrick Eldridge 
(515)294-5659 

Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 

• MARYLAND 
MDFIG 

3rd Wed., 6:30 p.m. 
JHU/APL, Bldg. 1 
Parsons Auditorium 
Mike Nemeth (301) 262-8140 
(eves.) 

• MASSACHUSETTS 
Boston FIG 

3rd Wed.. 7 p.m. 
BullHN 

300 Concord Rd., Billerica 
Gary Chanson (617) 527-7206 



• MICHIGAN 
Detroit/Ann Arbor Area 
Bill Walters 
(313)731-9660 

(313) 861-6465 (eves.) 

• MINNESOTA 
MNFIG Chapter 
Minneapolis 
Fred Olson 
(612) 588-9532 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St Louis Chapter 
1st Tues., 7 p.m. 
Thomhill Branch Library 
Robert Washam 
91 Weis Drive 
EUisville, MO 63011 

• NEW JERSEY 
New Jersey Chapter 

Rutgers Univ., Piscataway 
Nicholas Lordi 
(201)338-9363 

• NEW MEXICO 
Albuquerque Chapter 

1st Thurs., 7:30 p.m. 
Physics & Astronomy Bldg. 
Univ. of New Mexico 
Jon Bryan (505)298-3292 

• NEW YORK 

Long Island Chapter 

3rd Thurs., 7:30 p.m. 
Brookhaven National 
Laboratory 

AGS dept, bldg. 911, lab rm. 
A-202 

Irving Montanez 
(516) 282-2540 
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Rochester Chapter 


Houston Chapter 


• BELGIUM 


• GERMANY 


Monroe Comm. College 


3rd Men., 7:30 p.m. 


Belgium Chapter 


Germany FIG Chapter 


Bldg. 7, Rm. 102 


Houston Area League of PC 


4th Wed., 8 p.m. 


Heinz Schnitter 


Frank Lanzafame 


Users 


Luk Van Loock 


Forth-Gesellschaft e.v. 


(716)482-3398 


1200 Post Oak Rd. 


Lariksdreef 20 


Postfach 1110 




(Galleria area) 


2120 Schoten 


D-80 Unterschleissheim 


• OfflO 


Russell Harris 


03/658-6343 


(49) (89) 317 3784 


Cleveland Chapter 


(713)461-1618 




e-mail uucp: 


4th Tues., 7 p.m. 




Southern Belgium Chapter 


secretary@ forthev .uucp 


Chagrin Falls Library 


• VERMONT 


Jean-Marc Bertinchamps 


Internet: 


Gary Bergstrom 


Vermont Chapter 


Rue N. Monnom, 2 


secretary^ admin.FORTH- 


(216)247-2492 


Vergennes 


B-6290 Nalinnes 


eV.de D-8044 Unterschleis- 






071/213858 




• Columbus FIG Chapter 


Vergennes Union High School 




(49) (89)317 3784 


4th Tues. 


RM 210, Monkton Rd. 


• CANADA 


Munich Forth Box: 


Kal-Kan Foods, Inc. 


Hal Clark (802) 453-4442 


FORTH-BC 


(49) (89) 725 9625 (telcom) 


5115 Fisher Road 


IstThurs., 7:30 p.m. 


Terry Webb 


• VIRGINIA 


BCIT, 3700 WUlingdon Ave. 




(614) 878-7241 


Fir<it Forth nf H amnton 


BBY, Rm. lA-324 


• HOLLAND 




Roads 


Jack W. Brown 


Holland Chapter 


Dayton Chapter 


William Edmonds 


(604) 596-9764 or 


Vic Van de Zande 


2nd Tues. & 4th Wed., 6:30 


(804) 898^099 


(604) 436-0443 


Finmark 7 


p.m. 




BCFB BBS (604) 434-5886 


3831 JE Leusden 


CFC. 11 W. Monument Ave. 


Potomac FIG 






#612 


D.C. & Northem Virginia 


Northern Alberta Chapter 


• ITALY 


Gary Ganger (513) 849-1483 


1st Tues. 


4th Thurs., 7-9:30 p.m. 


FIG Italia 


• OREGON 
Willamette Valley Chapter 
4th Tues., 7 p.m. 
Linn-Benton Comm. College 
Pann McCuaig (503) 752-51 13 


Lee Recreation Center 


N. Alta. Inst, of Tech. 


Marco Tausel 


5722 Lee Hwy., Arlington 
Joseph Brown 


Tony Van Muyden 
(403) 486-6666 (days) 


Via Gerolamo Fomi 48 
20161 Milano 


(703)471-4409 


(403) 962-2203 (eves.) 


• JAPAN 
Tokyo Chapter 


E. Coast Forth Board 
(703) 442-8695 


Southern Ontario Chapter 


• PENNSYLVANIA 

Villanova Univ. Chapter 
IstMon., /:jUp.m. 
Villanova University 
Dennis Clark 
(215) 860-0700 


Richmond Forth Group 


Quarterly: 1st Sat. of Mar., 
June, and Dec. 2nd Sat. of 


3rd Sat. afternoon 
Hamacho-Kaikan, Chuoku 


2nd Wed., 7 p.m. 


Sept. Genl. Sci. Bldg., RM 212 


Toshio Inoue 


154 Business School 
Univ. of Richmond 


McMaster University 
Dr. N. Solntseff 


(81)3-812-2111 ext. 7073 


Donald A. Full 


(416) 525-9140x3443 


. REPUBLIC OF CHINA 


(804) 739-3623 




R.O.C. Chapter 


• TENNESSEE 




• ENGLAND 


Ching-Tang Tseng 


East Tennessee Chapter 

tjaK tviage 

3rd Wed., 7 p.m. 

oci. Appl. Int I. Corp., otn rl. 

oUU vjaK KiQge 1 umpiKe 

Richard Secrist 


• WISCONSIN 


Forth Interest Group-UK 


P.O. Box 28 


Luke Superior Chapter 


Lxjndon 


Longtan, Taoyuan, Taiwan 


2nd Fri., 7:30 p.m. 


IstThurs., 7p.m. 


(03) 4798925 


1219 N. 21st St., Superior 


Polytechnic of South Bank 




Allen Anway (715) 394-4061 


RM408 
Borough Rd. 


• SWEDEN 
SweFIG 


/ICQ TOylO 

(oij; 40J-/24Z 


INTERNATIONAL 

• AUSTRALIA 


D.J. Neale 

58 Woodland Way 


Per Aim 
46/8-929631 


• TEXAS 


iTlvlLfUUI lie V^llaJJLCl 


Morden, Surry SM4 4DS 




Austin Chapter 


1 cl Pri 52 r\ m 

Lance Collins 




• SWITZERLAND 


Matt Lawrence 


. FINLAND 


Swiss Chapter 


POBox 180409 




FinFIG 


Max Hugelshofer 


Austin, TX 78718 


Glen Iris, Victoria 3146 


Janne Kotiranta 


Industrieberatung 




03/889-2600 


Arkkitehdinkatu 38 c 39 


Ziberstrasse 6 


Dallas Chapter 


BBS: 61 3 809 1787 


33720 Tampere 


8l52 0pfikon 


4thThurs., 7:30 p.m. 


H-358-31-184246 


01 810 9289 


Texas Instruments 


Sydney Chapter 






13500 N. Central Expwy. 


2nd Fri., 7 p.m. 




SPECIAL GROUPS 


Semiconductor Cafeteria 


John Goodsell Bldg,, RM 




. NC4000 Users Group 


Conference Room A 


LG19 




John Carpenter 


ClifPenn(214) 995-2361 


Univ. of New South Wales 

Peter Tregeagle 

10 Binda Rd. 

Yowie Bay 2228 

02/524-7490 

Usenet 

tedi@usage.csd.unsw.oz 




1698 Villa St. 

Mountain View, CA 94041 

(415) 960-1256 (eves.) 
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HURRY! For a limited time you can. . . 




SAVE 



UP TO 



Offer good ONLYio current FIG members... 

As you may know, the Forth Interest Group's Board of Directors has authorized an increase 
in membership fees. This was needed in order to meet the rising cost of important member 
services hke Forth Dimensions and our mail-order operations. But until April 1, 1991 
current members can still renew at last year's rate. 

FIG depends entirely on the support of people like you, and every member's fee goes to 
keeping our doors open and the presses rolling. Without our magazine, source code listings, 
and other publications, the world would lose its major source of Forth education and 
information. So, please, take a moment right now to fill out the attached renewal form — your 
membership expires with FD issue XIF6! 

Two more reasons to renew NOW... 

Other recent changes at FIG make it even more important that you renew on time. First, 
members who renew late will no longer automatically receive any issues they missed — they 
must order them separately as back issues, subject to availability, and at the new cover price 
of $10. From now on, each FIG membership will last for twelve months from the day it is 
received at the FIG office, no longer linked to the Forth Dimensions calendar year. 



Three ways to gel $60 if purchased separately (6 issues x $ 1 each) 
Forth Dimensions $40* to members after April 1 , saving 1/31 



next year! 



$30** to members renewing before April 1 , saving 1/2! 



* $46 Canada, $52 other countries. " $36 Canada, S42 ottier countries. 



Forth Interest Group 

P.O.Box 8231 

San Jose, CA 95155 



Second Class 
Postage Paid at 
San Jose, CA 



